diff options
Diffstat (limited to 'ds9/library/block.tcl')
| -rw-r--r-- | ds9/library/block.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ds9/library/block.tcl b/ds9/library/block.tcl index e06b447..3d84228 100644 --- a/ds9/library/block.tcl +++ b/ds9/library/block.tcl @@ -107,7 +107,7 @@ proc BlockDialog {} { -command BlockApplyDialog $mb.file add separator $mb.file add command -label [msgcat::mc {Close}] \ - -command BlockDestroyDialog + -command BlockDestroyDialog -accelerator "${ds9(ctrl)}W" EditMenu $mb iblock @@ -141,8 +141,7 @@ proc BlockDialog {} { # Buttons set f [ttk::frame $w.buttons] ttk::button $f.apply -text [msgcat::mc {Apply}] -command BlockApplyDialog - ttk::button $f.close -text [msgcat::mc {Close}] \ - -command BlockDestroyDialog + ttk::button $f.close -text [msgcat::mc {Close}] -command BlockDestroyDialog pack $f.apply $f.close -side left -expand true -padx 2 -pady 4 # Fini @@ -152,6 +151,8 @@ proc BlockDialog {} { $w.param.blockx select range 0 end + bind $w <<Close>> BlockDestroyDialog + UpdateBlockDialog } |