summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotline.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2019-05-28 17:37:38 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2019-05-28 17:37:38 (GMT)
commita2ec298aae86bcf577e28753820cb6399b1b80b4 (patch)
tree6e2266d30977dde10671cd701767c0f25d883772 /ds9/library/plotline.tcl
parent24ac9f46d854edfec75630eba1eddc1943da1843 (diff)
downloadblt-a2ec298aae86bcf577e28753820cb6399b1b80b4.zip
blt-a2ec298aae86bcf577e28753820cb6399b1b80b4.tar.gz
blt-a2ec298aae86bcf577e28753820cb6399b1b80b4.tar.bz2
add multiple plot support
Diffstat (limited to 'ds9/library/plotline.tcl')
-rw-r--r--ds9/library/plotline.tcl20
1 files changed, 2 insertions, 18 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl
index bd86187..5f21f07 100644
--- a/ds9/library/plotline.tcl
+++ b/ds9/library/plotline.tcl
@@ -75,6 +75,7 @@ proc PlotLineDialog {varname wtt title xaxis yaxis} {
$var(mb).data add command -label "[msgcat::mc {Name}]..." \
-command [list DatasetNameDialog $varname]
+ # Shape
PlotShapeMenu $varname
# Smooth
@@ -140,24 +141,7 @@ proc PlotLineDialog {varname wtt title xaxis yaxis} {
[list PlotLineUpdateElement $varname]
# Error
- menu $var(mb).data.error
- $var(mb).data.error add checkbutton -label [msgcat::mc {Show}] \
- -variable ${varname}(graph$cc,error) \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.error add checkbutton -label [msgcat::mc {Cap}] \
- -variable ${varname}(graph$cc,error,cap) \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.error add separator
- $var(mb).data.error add cascade -label [msgcat::mc {Color}] \
- -menu $var(mb).data.error.color
- $var(mb).data.error add cascade -label [msgcat::mc {Width}] \
- -menu $var(mb).data.error.width
-
- PlotColorMenu $var(mb).data.error.color $varname graph$cc,error,color \
- [list PlotLineUpdateElement $varname]
- WidthDashMenu $var(mb).data.error.width $varname graph$cc,error,width {} \
- [list PlotLineUpdateElement $varname] {}
-
+ PlotErrorMenu $varname
}
proc PlotLineAddGraph {varname} {