Добавлено закрытие дополнительных окон по Escape

2019-09-13 13:43:17 +03:00 · 2019-09-13 13:43:17 +03:00 · 30ff9428fc
parent 50c061f491
commit 30ff9428fc
2 changed files with 2 additions and 6 deletions
--- a/lib/function.tcl
+++ b/lib/function.tcl
@ -898,7 +898,7 @@ proc AddToplevel {lbl img {win_name .add}} {
    grid $frm_btn -row 1 -column 1 -sticky sew -padx 0 -pady 0
    pack  $frm_btn.btn_cancel $frm_btn.btn_ok -side right -padx 5 -pady 5
    #pack  $frm_btn.btn_ok  -side right -padx 2
-    
+    bind .add <Escape> $cmd
    return $frm
 }

@ -2596,4 +2596,5 @@ proc Del::inet {tree host profile_name} {



+

--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@ -122,8 +122,3 @@ pack $frm_tree $frm_work -side left -expand true -fill both
 .panel add $frm_tree -weight 1 
 .panel add $frm_work -weight 1

-
-
-
-
-