Refactoring Settigs procedure source code

Some changes into messages files (localisation)

CHANGELOG

@@ -6,6 +6,10 @@
 #########################################################
 
 0.4.5
+22.02.2018
+- Refactoring Settigs procedure source code
+- Some changes into messages files (localisation)
+
 20.02.2018
 - Refactoring auto update file structure (tree). Now structure updated when file was saving
 - Refactoring "Settings" dialog
@@ -388,3 +392,4 @@ characters to the right of the insertion cursor.
 
 
 
+

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} {
 
 
 
+
+

msgs/en.msg

@@ -9,6 +9,8 @@
 ::msgcat::mcset en "Add as new project"
 ::msgcat::mcset en "Add to existing project"
 ::msgcat::mcset en "Add to project"
+::msgcat::mcset en "Archive dir"
+::msgcat::mcset en "Archive file mask"
 ::msgcat::mcset en "Author"
 ::msgcat::mcset en "Braces"
 ::msgcat::mcset en "Quad braces"
@@ -76,10 +78,12 @@
 ::msgcat::mcset en "Home dir"
 ::msgcat::mcset en "Home page"
 ::msgcat::mcset en "Image dir"
-::msgcat::mcset en "Insert"
+::msgcat::mcset en "Indent foreground"
+::msgcat::mcset en "Indent background"
 ::msgcat::mcset en "Interface language"
 ::msgcat::mcset en "Install Tcl/Tk Project Manager"
 ::msgcat::mcset en "Input file name"
+::msgcat::mcset en "Key bindings"
 ::msgcat::mcset en "Label"
 ::msgcat::mcset en "Language"
 ::msgcat::mcset en "Line number"
@@ -109,7 +113,7 @@
 ::msgcat::mcset en "Subparameters"
 ::msgcat::mcset en "Paste"
 ::msgcat::mcset en "Paste from clipboard"
-::msgcat::mcset en "Percent %"
+::msgcat::mcset en "Percent"
 ::msgcat::mcset en "Print ..."
 ::msgcat::mcset en "Print"
 ::msgcat::mcset en "Print command"
@@ -135,7 +139,7 @@
 ::msgcat::mcset en "Replace with"
 ::msgcat::mcset en "Replace all"
 ::msgcat::mcset en "Release"
-::msgcat::mcset en "RPM dir"
+::msgcat::mcset en "RPM directory"
 ::msgcat::mcset en "RPM file mask"
 ::msgcat::mcset en "Run"
 ::msgcat::mcset en "Running project"
@@ -156,10 +160,9 @@
 ::msgcat::mcset en "Show backup files"
 ::msgcat::mcset en "Show dot files"
 ::msgcat::mcset en "Split edit window"
+::msgcat::mcset en "SQL commands"
 ::msgcat::mcset en "Interpretator"
 ::msgcat::mcset en "Text autoformat"
-::msgcat::mcset en "TGZ dir"
-::msgcat::mcset en "TGZ file mask"
 ::msgcat::mcset en "Thanks"
 ::msgcat::mcset en "Title normal"
 ::msgcat::mcset en "Title modify"
@@ -177,3 +180,5 @@
 
 
 
+
+

msgs/ru.msg

@@ -10,9 +10,11 @@
 ::msgcat::mcset ru "Add to existing project" "Добавить в существующий проект"
 ::msgcat::mcset ru "Add to project" "Добавить в проект"
 ::msgcat::mcset ru "Archive created in" "Архив помещен в"
+::msgcat::mcset ru "Archive directory" "Каталог c архивами"
+::msgcat::mcset ru "Archive file mask" "Маска архива"
 ::msgcat::mcset ru "Author" "Автор"
 ::msgcat::mcset ru "Braces" "Скобки"
-::msgcat::mcset ru "Quad braces" "Квадртаные скобки"
+::msgcat::mcset ru "Quad braces" "Квадратные скобки"
 ::msgcat::mcset ru "Braces background" "Фон скобки"
 ::msgcat::mcset ru "Braces foreground" "Цвет скобки"
 ::msgcat::mcset ru "Cancel" "Отмена"
@@ -80,11 +82,14 @@
 ::msgcat::mcset ru "Home dir" "Домашний каталог"
 ::msgcat::mcset ru "Home page" "Домашняя страница"
 ::msgcat::mcset ru "Image dir" "Каталог изображений"
+::msgcat::mcset ru "Indent foreground" "Подсветка отступа"
+::msgcat::mcset ru "Indent background" "Подсветка отступа"
 ::msgcat::mcset ru "Insert" "Вставка"
 ::msgcat::mcset ru "Interface language" "Язык интерфейса"
 ::msgcat::mcset ru "Interpetator" "Интерпретатор"
 ::msgcat::mcset ru "Install Tcl/Tk Project Manager" "Установка Tcl/Tk Project Manager"
 ::msgcat::mcset ru "Input file name" "Введите имя файла"
+::msgcat::mcset ru "Key bindings" "Назначения клавиш"
 ::msgcat::mcset ru "Label" "Метка"
 ::msgcat::mcset ru "Language" "Язык"
 ::msgcat::mcset ru "Line number" "Номер строки"
@@ -114,7 +119,7 @@
 ::msgcat::mcset ru "Subparameters" "Субпараметры"
 ::msgcat::mcset ru "Paste" "Вставить"
 ::msgcat::mcset ru "Paste from clipboard" "Вставить из буфера"
-::msgcat::mcset ru "Percent %" "Знак процента"
+::msgcat::mcset ru "Percent" "Знак процента"
 ::msgcat::mcset ru "Print ..." "Печать ..."
 ::msgcat::mcset ru "Print" "Печать"
 ::msgcat::mcset ru "Print command" "Команда печати"
@@ -140,7 +145,7 @@
 ::msgcat::mcset ru "Replace with" "Заменить на"
 ::msgcat::mcset ru "Replace all" "Заменить все"
 ::msgcat::mcset ru "Release" "Выпуск"
-::msgcat::mcset ru "RPM dir" "Каталог RPM"
+::msgcat::mcset ru "RPM directory" "Каталог RPM"
 ::msgcat::mcset ru "RPM file mask" "Маска RPM"
 ::msgcat::mcset ru "Run" "Выполнить"
 ::msgcat::mcset ru "Run file" "Запустить файл"
@@ -161,9 +166,8 @@
 ::msgcat::mcset ru "Show backup files" "Показывать временные файлы"
 ::msgcat::mcset ru "Show dot files" "Показывать скрытые файлы"
 ::msgcat::mcset ru "Split edit window" "Разделить окно редактора"
+::msgcat::mcset ru "SQL commands" "SQL команды"
 ::msgcat::mcset ru "Text autoformat" "Автоформат текста"
-::msgcat::mcset ru "TGZ dir" "Каталог TGZ"
-::msgcat::mcset ru "TGZ file mask" "Маска TGZ"
 ::msgcat::mcset ru "Thanks" "Благодарности"
 ::msgcat::mcset ru "Title normal" "Файл нормальный"
 ::msgcat::mcset ru "Title modify" "Файл изменен"
@@ -182,3 +186,5 @@
 
 
 
+
+