Чистка кода

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]
@@ -672,7 +671,8 @@ proc AddToplevel {lbl img {win_name .add}} {
     grid $frm -row 0 -column 1 -sticky nw -padx 5 -pady 5
     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                
+    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
 
-