mirrors/1c_rac-gui
1
0
Fork 0
mirror of https://bitbucket.org/svk28/rac-gui synced 2024-12-04 18:46:52 +00:00
Code Releases Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/function.tcl
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 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_cancel $frm_btn.btn_ok -side right -padx 5 -pady 5
#pack $frm_btn.btn_ok -side right -padx 2 #pack $frm_btn.btn_ok -side right -padx 2
bind .add <Escape> $cmd
return $frm return $frm
} }
@ -2596,4 +2596,5 @@ proc Del::inet {tree host profile_name} {

5
lib/gui.tcl
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_tree -weight 1
.panel add $frm_work -weight 1 .panel add $frm_work -weight 1