summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotline.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2019-05-28 17:26:06 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2019-05-28 17:26:06 (GMT)
commit4f2a9b5c0ecc7a591a2b0329c2250d48d56d9753 (patch)
tree8a0e59ad040142f5f794ba375330a0e6cf7a99e7 /ds9/library/plotline.tcl
parent9784610917d011936dd0bcba04619aa754c14b6d (diff)
downloadblt-4f2a9b5c0ecc7a591a2b0329c2250d48d56d9753.zip
blt-4f2a9b5c0ecc7a591a2b0329c2250d48d56d9753.tar.gz
blt-4f2a9b5c0ecc7a591a2b0329c2250d48d56d9753.tar.bz2
add multiple plot support
Diffstat (limited to 'ds9/library/plotline.tcl')
-rw-r--r--ds9/library/plotline.tcl53
1 files changed, 1 insertions, 52 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl
index 33c558c..bd86187 100644
--- a/ds9/library/plotline.tcl
+++ b/ds9/library/plotline.tcl
@@ -75,58 +75,7 @@ proc PlotLineDialog {varname wtt title xaxis yaxis} {
$var(mb).data add command -label "[msgcat::mc {Name}]..." \
-command [list DatasetNameDialog $varname]
- # Shape
- menu $var(mb).data.shape
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {None}] \
- -variable ${varname}(graph$cc,shape,symbol) -value none \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Circle}] \
- -variable ${varname}(graph$cc,shape,symbol) -value circle \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Square}] \
- -variable ${varname}(graph$cc,shape,symbol) -value square \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Diamond}] \
- -variable ${varname}(graph$cc,shape,symbol) -value diamond \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Plus}] \
- -variable ${varname}(graph$cc,shape,symbol) -value plus \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Cross}] \
- -variable ${varname}(graph$cc,shape,symbol) -value cross \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Simple Plus}] \
- -variable ${varname}(graph$cc,shape,symbol) -value splus \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Simple Cross}] \
- -variable ${varname}(graph$cc,shape,symbol) -value scross \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Triangle}] \
- -variable ${varname}(graph$cc,shape,symbol) -value triangle \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add radiobutton \
- -label [msgcat::mc {Arrow}] \
- -variable ${varname}(graph$cc,shape,symbol) -value arrow \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add separator
- $var(mb).data.shape add checkbutton \
- -label [msgcat::mc {Fill}] \
- -variable ${varname}(graph$cc,shape,fill) \
- -command [list PlotLineUpdateElement $varname]
- $var(mb).data.shape add cascade -label [msgcat::mc {Color}] \
- -menu $var(mb).data.shape.color
-
- PlotColorMenu $var(mb).data.shape.color $varname graph$cc,shape,color \
- [list PlotLineUpdateElement $varname]
+ PlotShapeMenu $varname
# Smooth
menu $var(mb).data.smooth