From 4b1e2fe9066e39b5e8fa12933e4cb36789fdc037 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Tue, 12 Jun 2018 19:56:42 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B0=20=D0=B8=D0=BA=D0=BE=D0=BD=D0=BA=D0=B0=20=D0=B4?=
 =?UTF-8?q?=D0=BB=D1=8F=20=D0=BF=D1=80=D0=B8=D0=BB=D0=BE=D0=B6=D0=B5=D0=BD?=
 =?UTF-8?q?=D0=B8=D1=8F.=20=D0=94=D0=BE=D0=B1=D0=B0=D0=BB=D0=B5=D0=BD?=
 =?UTF-8?q?=D0=BE=20=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=B8=D0=B5?=
 =?UTF-8?q?=20=D0=B7=D0=B0=D0=B3=D0=BE=D0=BB=D0=BE=D0=B2=D0=BA=D0=B0=20?=
 =?UTF-8?q?=D1=84=D1=80=D0=B5=D0=B9=D0=BC=D0=B0=20=D0=BF=D1=80=D0=B8=20?=
 =?UTF-8?q?=D1=80=D0=B5=D0=B4=D0=B0=D0=BA=D1=82=D0=B8=D1=80=D0=BE=D0=B2?=
 =?UTF-8?q?=D0=B0=D0=BD=D0=B8=D0=B8=20=D0=BA=D0=BB=D0=B0=D1=81=D1=82=D0=B5?=
 =?UTF-8?q?=D1=80=D0=B0.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/function.tcl | 5 ++++-
 lib/gui.tcl      | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/function.tcl b/lib/function.tcl
index 5bf4247..fd1c7c7 100644
--- a/lib/function.tcl
+++ b/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] {
diff --git a/lib/gui.tcl b/lib/gui.tcl
index 6a19fbb..9380aa4 100644
--- a/lib/gui.tcl
+++ b/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