diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-24 15:49:46 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-24 15:49:46 (GMT) |
commit | 4aff0a130bb5cf0e52b841ce86323c319df0fc0e (patch) | |
tree | f7f06f5a60956f227e884cc048c9ff4391b06ac2 /ds9/library/plotdialog.tcl | |
parent | 4b9f920960a1ea2ef35eabdf05d5d0e934c572df (diff) | |
download | blt-4aff0a130bb5cf0e52b841ce86323c319df0fc0e.zip blt-4aff0a130bb5cf0e52b841ce86323c319df0fc0e.tar.gz blt-4aff0a130bb5cf0e52b841ce86323c319df0fc0e.tar.bz2 |
support multiple graphs per plot
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}] \ |