diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-08-21 20:40:02 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-08-21 20:40:02 (GMT) |
| commit | 7959c11e46b7f1227edce9ea4d6de29a786d88bb (patch) | |
| tree | 3ab40f0bce571c365d4c59528522d1cfad282bfb /ds9/library/mframe.tcl | |
| parent | 86dd0bbcc0ea3a68eee464557e1de53def0192d9 (diff) | |
| download | blt-7959c11e46b7f1227edce9ea4d6de29a786d88bb.zip blt-7959c11e46b7f1227edce9ea4d6de29a786d88bb.tar.gz blt-7959c11e46b7f1227edce9ea4d6de29a786d88bb.tar.bz2 | |
clean up code
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}]..." \ |