diff options
Diffstat (limited to 'ds9/library/mframe.tcl')
| -rw-r--r-- | ds9/library/mframe.tcl | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/ds9/library/mframe.tcl b/ds9/library/mframe.tcl index 65422e7..241149f 100644 --- a/ds9/library/mframe.tcl +++ b/ds9/library/mframe.tcl @@ -1026,12 +1026,13 @@ proc PrefsDialogButtonbarFrame {f} { # Support -proc UpdateFrameMenuStatic {} { +proc UpdateFrameMenu {} { global ds9 + global current global debug if {$debug(tcl,update)} { - puts stderr "UpdateFrameMenuStatic" + puts stderr "UpdateFrameMenu" } $ds9(mb).frame entryconfig [msgcat::mc {New Frame RGB}] -state normal @@ -1122,16 +1123,6 @@ proc UpdateFrameMenuStatic {} { $ds9(buttons).frame.next configure -state disabled $ds9(buttons).frame.last configure -state disabled } -} - -proc UpdateFrameMenu {} { - global ds9 - global current - - global debug - if {$debug(tcl,update)} { - puts stderr "UpdateFrameMenu" - } if {$current(frame) != {}} { $ds9(mb).frame entryconfig "[msgcat::mc {Cube}]..." \ |