Auto indent added for () [] braces

CHANGELOG

@@ -6,6 +6,9 @@
 #########################################################
 
 0.4.5
+08.02.2018
+- Auto indent added for () [] braces
+
 07.02.2018
 - Tcl, Perl, PHP highlight comment procedure fixed
 - Help file Text.html utf-8 encoding
@@ -389,5 +392,6 @@ Fixed bug with PageRise function
 
 
 
+
 
 

lib/completition.tcl

@@ -171,5 +171,6 @@ proc auto_completition_key { widget K A } {
 
 
 
+
 
 

lib/editor.tcl

@@ -798,6 +798,29 @@ proc TabIns {text} {
                 set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
             }
         }
+        if {$lastSymbol == "\["} {
+            incr shouldBeSpaces $indentSize
+        }
+        set a ""
+        regexp "^| *\]" $curText a
+        if {$a != ""} {
+            # make unindent
+            if {$shouldBeSpaces >= $indentSize} {
+                set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
+            }
+        }
+        if {$lastSymbol == "\("} {
+            incr shouldBeSpaces $indentSize
+        }
+        set a ""
+        regexp {^| *\)} $curText a
+        if {$a != ""} {
+            # make unindent
+            if {$shouldBeSpaces >= $indentSize} {
+                set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
+            }
+        }
+        
         set spaceNum [string length $spaces]
         if {$shouldBeSpaces > $spaceNum} {
             #insert spaces
@@ -1202,6 +1225,3 @@ proc TextOperation {oper} {
 #################################### 
 GetOp
 
-
-
-

lib/help.tcl

@@ -324,37 +324,3 @@ proc TopLevelHelp {} {
 
 #GetContent $docDir/tcl.toc.html
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

lib/highlight/tcl.tcl

@@ -212,3 +212,4 @@ proc HighLightTCL {text line lineNumber node} {
 }
 
 
+

lib/procedure.tcl

@@ -1087,3 +1087,4 @@ proc GetExtention {node} {
 
 
 
+