diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-27 20:01:56 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-27 20:01:56 (GMT) |
commit | 26a96ff43d7f7b838c8ea7343bd738895c122e9e (patch) | |
tree | a52a9ae3247613a8d2f032b036e8ea1f9c98159c /ds9/library/plotdialog.tcl | |
parent | f56d51fc0565212090a9540b28dfda7d5de9cd41 (diff) | |
download | blt-26a96ff43d7f7b838c8ea7343bd738895c122e9e.zip blt-26a96ff43d7f7b838c8ea7343bd738895c122e9e.tar.gz blt-26a96ff43d7f7b838c8ea7343bd738895c122e9e.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plotdialog.tcl')
-rw-r--r-- | ds9/library/plotdialog.tcl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index ce56ad5..45fd2e1 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -30,8 +30,6 @@ proc PlotDialog {varname wtt title xaxis yaxis} { set var(graph,total) 0 set var(graph,current) 0 - array set $varname [array get pap] - PlotTitle $varname $title $xaxis $yaxis # can be turned off for external line plots @@ -474,10 +472,13 @@ proc DatasetNameDialog {varname} { global $varname global ed + set tt $var(graph,total) + set cc $var(graph,current) + set w {.aptitle} set ed(ok) 0 - set ed(name) $var(name) + set ed(name) $var(graph$cc,name) DialogCreate $w [msgcat::mc {Data}] ed(ok) @@ -508,8 +509,9 @@ proc DatasetNameDialog {varname} { DialogDismiss $w if {$ed(ok)} { - $var(mb).graph.select entryconfig "$var(name)" -label "$ed(name)" - set var(name) $ed(name) + $var(mb).graph.select entryconfig "$var(graph$cc,name)" \ + -label "$ed(name)" + set var(graph$cc,name) $ed(name) $var(proc,updateelement) $varname } |