Добавлена иконка для приложения. Добалено изменение заголовка фрейма при редактировании кластера.

lib/function.tcl

@@ -919,6 +919,7 @@ proc Add::cluster {tree host values} {
         Run::server $tree $host ""
         destroy .add
     }
+    return $frm
 }
 
 proc Add::rule {tree host values} {
@@ -1045,7 +1046,9 @@ proc Edit::cluster {tree host values} {
     global max_memory_size max_memory_time_limit errors_count_threshold security_level
     global load_balancing_mode kill_problem_processes active_cluster
     
-    Add::cluster $tree $host $values
+    set frm [Add::cluster $tree $host $values]
+    $frm configure -text "Редактирование кластера"
+    
     set active_cluster $values
     set lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"]
     foreach i [lindex $lst 0] {

lib/gui.tcl

@@ -17,7 +17,7 @@ if {[info exists topLevelGeometry]} {
 wm title . "1C Rac GUI"
 wm iconname . "1C Rac Gui"
 
-#wm iconphoto . tcllogo
+wm iconphoto . tcl
 wm protocol . WM_DELETE_WINDOW Quit
 wm overrideredirect . 0
 wm positionfrom . user