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

This commit is contained in:
Sergey Kalinin 2019-09-13 13:43:17 +03:00
parent 50c061f491
commit 30ff9428fc
2 changed files with 2 additions and 6 deletions

View File

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

View File

@ -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