Refactoring Settigs procedure source code

Some changes into messages files (localisation)

lib/editor.tcl

@@ -513,7 +513,7 @@ proc TabIns {text} {
                 incr shouldBeSpaces $tabSize
             } else  {
                 incr shouldBeSpaces
-            }
+            }            
         }
         #see last symbol in the prev String.
         set lastSymbol [string index $prevText [expr {[string length $prevText] - 1}]]
@@ -983,3 +983,4 @@ GetOp
 
 
 
+

lib/highlight/tcl.tcl

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

lib/main.tcl

@@ -290,7 +290,7 @@ FileTree::create $nbFiles
 set frmTree [ScrolledWindow $nbProjects.frmTree -bg $editor(bg)]
 global tree noteBook
 set tree [Tree $frmTree.tree \
--relief sunken -borderwidth 1 -width 5 -height 5 -highlightthickness 1\
+-relief sunken -borderwidth 1 -width 3 -height 5 -highlightthickness 1\
 -redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \
 -background $editor(bg) -selectbackground $editor(selectbg) -selectforeground white\
 -droptypes {
@@ -399,3 +399,5 @@ if {[info exists workingProject]} {
 
 
 
+
+

lib/procedure.tcl

@@ -666,3 +666,5 @@ proc GetExtention {node} {
 
 
 
+
+