From a0bbbd3eb50f9b79dd5ca269f45c63bd3212af86 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Fri, 20 Jul 2018 06:59:33 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D1=8B=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B8:=20-?=
 =?UTF-8?q?=20=D0=A9=D0=B5=D0=BB=D1=87=D1=91=D0=BA=20=D0=BA=D0=BD=D0=BE?=
 =?UTF-8?q?=D0=BF=D0=BA=D0=BE=D0=B9=20=D0=BC=D1=8B=D1=88=D0=B8=20=D0=BD?=
 =?UTF-8?q?=D0=B0=20=D0=BF=D1=83=D1=81=D1=82=D0=BE=D0=BC=20=D0=BC=D0=B5?=
 =?UTF-8?q?=D1=81=D1=82=D0=B5=20=D0=B2=20=D0=B4=D0=B5=D1=80=D0=B5=D0=B2?=
 =?UTF-8?q?=D0=B5=20-=20=D0=9D=D0=B0=D0=B6=D0=B0=D1=82=D0=B8=D0=B5=20?=
 =?UTF-8?q?=D0=BA=D0=BD=D0=BE=D0=BF=D0=BE=D0=BA=20"=D0=A0=D0=B5=D0=B4?=
 =?UTF-8?q?=D0=B0=D0=BA=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8?=
 =?UTF-8?q?=D0=B5"=20"=D0=A3=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B8=D0=B5"=20?=
 =?UTF-8?q?=D0=B5=D1=81=D0=BB=D0=B8=20=D0=BD=D0=B5=20=D0=B2=D1=8B=D0=B4?=
 =?UTF-8?q?=D0=B5=D0=BB=D0=B5=D0=BD=20=D0=BD=D0=B8=20=D0=BE=D0=B4=D0=B8?=
 =?UTF-8?q?=D0=BD=20=D1=8D=D0=BB=D0=B5=D0=BC=D0=B5=D0=BD=D1=82=20=D0=B2=20?=
 =?UTF-8?q?=D0=B4=D0=B5=D1=80=D0=B5=D0=B2=D1=8C=D1=8F=D1=85?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Добавлено:
- Заглушки для редактирования элементов профиля безопасности
---
 lib/function.tcl | 26 ++++++++++++++++++++++++--
 lib/gui.tcl      |  1 +
 2 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/lib/function.tcl b/lib/function.tcl
index b36aef1..525b462 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -21,6 +21,7 @@ proc TreePress {tree} {
     SetGlobalVarFromTreeItems $tree $id
     set values [$tree item $id -values]
     set key [lindex [split $id "::"] 0]
+    if {$values eq "" || $key eq ""} {return}
     Run::$key $tree $host $values
 }
 
@@ -1564,7 +1565,7 @@ proc Edit {} {
     set id  [.frm_tree.tree selection] 
     set values [.frm_tree.tree item $id -values]
     set key [lindex [split $id "::"] 0]
-    
+    if {$values eq "" || $key eq ""} {return}
     Edit::$key $tree $host $values
 }
 
@@ -1907,13 +1908,33 @@ proc Edit::profiles {tree host values} {
     return
 }
 
+proc Edit::directory {tree host values} {
+    return
+}
+
+proc Edit::addin {tree host values} {
+    return
+}
+proc Edit::module {tree host values} {
+    return
+}
+proc Edit::com {tree host values} {
+    return
+}
+proc Edit::app {tree host values} {
+    return
+}
+proc Edit::inet {tree host values} {
+    return
+}
+
 proc Del {} {
     global active_cluster host
     set tree .frm_tree.tree
     set id  [.frm_tree.tree selection] 
     set values [.frm_tree.tree item $id -values]
     set key [lindex [split $id "::"] 0]
-    
+    if {$values eq "" || $key eq ""} {return}
     Del::$key $tree $host $values
 }
 
@@ -2225,3 +2246,4 @@ proc Del::inet {tree host profile_name} {
 
 
 
+
diff --git a/lib/gui.tcl b/lib/gui.tcl
index 2d9be67..b1f92e5 100644
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -98,3 +98,4 @@ pack $frm_tree $frm_work -side left -expand true -fill both
 .panel add $frm_tree -weight 1 
 .panel add $frm_work -weight 1
 
+