Исправлены ошибки:

- Щелчёк кнопкой мыши на пустом месте в дереве
- Нажатие кнопок "Редактирование" "Удаление" если не выделен ни один элемент в деревьях

Добавлено:
- Заглушки для редактирования элементов профиля безопасности

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} {
 
 
 
+

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
 
+