Чистка кода

lib/function.tcl

@@ -658,7 +658,6 @@ proc AddToplevel {lbl img {win_name .add}} {
     toplevel $win_name
     wm title $win_name $lbl
     wm iconphoto $win_name tcl
-    #wm iconphoto $win_name server_grey_64
     ttk::label $win_name.lbl -image $img
     
     set frm [ttk::labelframe $win_name.frm -text $lbl -labelanchor nw]
@@ -673,6 +672,7 @@ proc AddToplevel {lbl img {win_name .add}} {
     grid $frm_btn -row 1 -column 1 -sticky se -padx 5 -pady 5
     pack  $frm_btn.btn_cancel  -side right
     pack  $frm_btn.btn_ok  -side right -padx 10
+    
     return $frm
 }
 
@@ -721,6 +721,8 @@ proc Add::agent_admin {tree host value} {
         Run::admins $tree $host $active_cluster
         destroy .add
     }
+    
+    
     return $frm
 }
 
@@ -1080,6 +1082,7 @@ proc Add::cluster {tree host values} {
         Run::server $tree $host ""
         destroy .add
     }
+    
     return $frm
 }
 
@@ -1909,3 +1912,4 @@ proc Del::server {tree host values} {
 }
 
 
+

lib/gui.tcl

@@ -6,17 +6,17 @@
 # https://bitbucket.org/svk28/rac-gui
 ######################################################
 
-
+# установка размера и положения основного окна
-
+# можно установить в переменную topLevelGeometry в конфиг программы
 if {[info exists topLevelGeometry]} {
     wm geometry . $topLevelGeometry
 } else {
     wm geometry . 1024x768
 }
-
+# Заголовок окна
 wm title . "1C Rac GUI"
 wm iconname . "1C Rac Gui"
-
+# иконка окна (берется из файла lib/imges.tcl)
 wm iconphoto . tcl
 wm protocol . WM_DELETE_WINDOW Quit
 wm overrideredirect . 0
@@ -28,16 +28,15 @@ wm positionfrom . user
 #ttk::style configure Custom.Treeview -foreground red
 #ttk::style configure Custom.Treeview -rowheight 20
 
+ttk::style theme use clam
 
+# Панель инсрументов
 set frm_tool [frame .frm_tool]
 pack $frm_tool -side left -fill y 
-
 ttk::panedwindow .panel -orient horizontal -style TPanedwindow
 pack .panel -expand true -fill both
 pack propagate .panel false
 
-ttk::style theme use clam
-
 ttk::button $frm_tool.btn_add  -command Add  -image add_grey_32
 ttk::button $frm_tool.btn_del  -command Del -image del_grey_32
 ttk::button $frm_tool.btn_edit  -command Edit -image edit_grey_32
@@ -47,6 +46,8 @@ pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_edit -side top -padx 5 -p
 #label $frm_tool.lbl_logo -image tcl
 pack $frm_tool.btn_quit  -side bottom -padx 5 -pady 5
 #pack $frm_tool.lbl_logo -side bottom -padx 5 -pady 5
+
+# Дерево с полосами прокрутки
 set frm_tree [frame .frm_tree]
 
 ttk::scrollbar $frm_tree.hsb1 -orient horizontal -command [list $frm_tree.tree xview]
@@ -60,9 +61,11 @@ grid $frm_tree.hsb1 -row 1 -column 0 -sticky nsew
 grid columnconfigure $frm_tree 0 -weight 1
 grid rowconfigure $frm_tree 0 -weight 1
 
+# назначение обработчика нажатия кнопкой мыши
 #bind $frm_tree.tree <ButtonRelease> "TreePress %x %y %X %Y $frm_tree.tree"
 bind $frm_tree.tree <ButtonRelease> "TreePress $frm_tree.tree"
 
+# Список для данных (таблица)
 set frm_work [frame .frm_work]
 ttk::scrollbar $frm_work.hsb -orient horizontal -command [list $frm_work.tree_work xview]
 ttk::scrollbar $frm_work.vsb -orient vertical -command [list $frm_work.tree_work yview]
@@ -82,7 +85,7 @@ $tree_work tag configure light -background $color(light_table_bg)
 
 #$tree_work heading Creator -text "Creator" -anchor center
 #$tree_work heading Year -text "Year" -anchor center
-
+# Пазмещение элементов на форме
 grid $tree_work -row 0 -column 0 -sticky nsew
 grid $frm_work.vsb -row 0 -column 1 -sticky nsew
 grid $frm_work.hsb -row 1 -column 0 -sticky nsew
@@ -95,4 +98,3 @@ pack $frm_tree $frm_work -side left -expand true -fill both
 .panel add $frm_tree -weight 1 
 .panel add $frm_work -weight 1
 
-

rac_gui.tcl

@@ -8,22 +8,24 @@ exec wish "$0" -- "$@"
 # Author: Sergey Kalinin svk@nuk-svk.ru
 # Home page: https://bitbucket.org/svk28/rac-gui
 ######################################################
-
+# Устанавливаем текущий каталог
 set dir(root) [pwd]
-
+# Устанавливаем рабочий каталог, если его нет то создаём
 set dir(work) [file join $env(HOME) .rac_gui]
 if {[file exists $dir(work)] == 0 } {
     file mkdir $dir(work)    
 }
-set dir(msg) "[file join $dir(root) msgs]"
+# каиалог с модулями
 set dir(lib) "[file join $dir(root) lib]"
 
+# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный
 if {[file exists [file join $dir(work) rac_gui.cfg]] ==0} {
     file copy [file join [pwd] rac_gui.cfg] [file join $dir(work) rac_gui.cfg]
 } 
-
 source [file join $dir(work) rac_gui.cfg]
-
+# Код проверки наличия rac и правильности указания пути в конфиге
+# если программа не найдена то будет выведен диалог для указанием корректного пути
+# и этот путь будет записан в пользовательский конфиг
 if {[file exists $rac_cmd] == 0} {
     set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . -title "Укажите путь до rac" -initialfile rac]
     file copy [file join $dir(work) rac_gui.cfg] [file join $dir(work) rac_gui.cfg.bak] 
@@ -40,30 +42,16 @@ if {[file exists $rac_cmd] == 0} {
     close $orig_file
     #return "$host:$port"
     file delete [file join $dir(work) 1c_srv.cfg.bak] 
-    
 } else {
     puts "Found $rac_cmd"
 }
 
-set dir(msg) "[file join $dir(root) msgs]"
-set dir(lib) "[file join $dir(root) lib]"
-
-## SETTINGS ENVIRONMENT LANGUAGE ##
-if [info exists env(LANG)] {
-    set locale $env(LANG)
-} else {
-    set locale $locale
-}
-
-::msgcat::mclocale $locale
-::msgcat::mcload $dir(msg)
-
 set cluster_user ""
 set cluster_pwd ""
 set agent_user ""
 set agent_pwd ""
 ## LOAD FILE ##
-# Load modules but maain.tcl must last loaded
+# Загружаем модули кроме gui.tcl так как его надо загрузить последним
 foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
     if {[file tail $modFile] ne "gui.tcl"} {
         source $modFile
@@ -73,12 +61,14 @@ foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
 source [file join $dir(lib) gui.tcl]
 source [file join $dir(work) rac_gui.cfg]
 
+# Читаем файл со списком серверов 1С
 if [file exists [file join $dir(work) 1c_srv.cfg]] {
     set f [open [file join $dir(work) 1c_srv.cfg] "RDONLY"]
     while {[gets $f line] >=0} {
         .frm_tree.tree insert {} end -id "server::$line" -text "$line" -values "$line"
     }    
 }
+
 # set editor(fg) grey
 # set editor(bg) black
 # option add *Entry.Foreground $editor(fg) interactive
@@ -100,3 +90,5 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] {
 # option add *ScrolledWindow.Background $editor(bg) interactive
 
 
+
+