diff options
Diffstat (limited to 'ds9/library/plotdialog.tcl')
| -rw-r--r-- | ds9/library/plotdialog.tcl | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index 878adfc..87ad63b 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -615,10 +615,11 @@ proc PlotExport {varname fn format} { DarwinPhotoRestore $var(top) $geom } -proc PlotUpdateGraphMenu {varname} { +proc PlotUpdateMenus {varname} { upvar #0 $varname var global $varname +# Graph if {[llength $var(graph,dss)] == 0} { $var(mb).graph entryconfig [msgcat::mc {Duplicate Dataset}] \ -state disabled @@ -647,18 +648,14 @@ proc PlotUpdateGraphMenu {varname} { -variable ${varname}(graph,ds,current) -value $nn \ -command [list PlotCurrentDataSet $varname] } -} - -proc PlotUpdateDataMenu {varname} { - upvar #0 $varname var - global $varname +# Data $var(mb) delete [msgcat::mc {Data}] switch $var(graph,type) { line { $var(mb) add cascade -label [msgcat::mc {Data}] \ -menu $var(mb).dataline - $var(mb).graph entryconfig Mode -state disabled + $var(mb).graph entryconfig [msgcat::mc {Mode}] -state disabled } bar { $var(mb) add cascade -label [msgcat::mc {Data}] \ |