diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-30 20:43:31 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-30 20:43:31 (GMT) |
commit | 5959a83a3b75cf5aacd951809d498158e76028fe (patch) | |
tree | 4dcad23210d2028c472f2a7b70bd0ef09ab333ce /ds9/library/plot.tcl | |
parent | f6e3a9d54ed5dd02aeda5f441146a42935082610 (diff) | |
download | blt-5959a83a3b75cf5aacd951809d498158e76028fe.zip blt-5959a83a3b75cf5aacd951809d498158e76028fe.tar.gz blt-5959a83a3b75cf5aacd951809d498158e76028fe.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plot.tcl')
-rw-r--r-- | ds9/library/plot.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index d372189..3c50877 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -55,7 +55,6 @@ proc PlotAddGraph {varname} { set var(graph$cc,data,total) 0 set var(graph$cc,data,current) 0 - set var(graph$cc,name) {} set var(graph$cc,xdata) {} set var(graph$cc,ydata) {} set var(graph$cc,xedata) {} @@ -181,7 +180,7 @@ proc PlotDeleteData {varname} { set var(graph$cc,data,total) 0 set var(graph$cc,data,current) 0 - set var(graph$cc,name) {} + set var(graph,ds,name) {} set var(graph$cc,xdata) {} set var(graph$cc,ydata) {} set var(graph$cc,xedata) {} @@ -350,7 +349,7 @@ proc PlotExternal {varname} { set nn $var(graph$cc,data,total) set var(graph$cc,data,current) $nn - set var(graph$cc,name) "Dataset $nn" + set var(graph,ds,name) "Dataset $nn" set var(graph$cc,$nn,manage) $var(graph$cc,manage) set var(graph$cc,$nn,dim) $var(graph$cc,dim) |