add multiple plot support

1 files changed, 2 insertions, 10 deletions

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index bdcb8c2..71a9b42 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -217,10 +217,7 @@ proc PlotCurrentData {varname} {
 
     if {$var($cc,data,total) > 0} {
 	set nn $var($cc,data,current)
-
-	set var($cc,manage) $var($cc,$nn,manage)
-
-	PlotRestoreState $varname $nn
+	PlotRestoreState $varname
     }
 
     PlotStats $varname
@@ -310,10 +307,9 @@ proc PlotExternal {varname} {
     set nn $var($cc,data,total)
     set var($cc,data,current) $nn
 
+    set var(graph,ds,manage) 0
     set var(graph,ds,name) "Dataset $nn"
 
-    set var($cc,$nn,manage) $var($cc,manage)
-
     PlotSaveState $varname
 
     # update data set menu
@@ -342,8 +338,6 @@ proc PlotListGenerate {varname} {
     upvar #0 $varname var
     global $varname
 
-    set cc $var(graph,current)
-
     set rr {}
     if {$var(graph,ds,xdata) != {}} {
 	global $var(graph,ds,xdata) $var(graph,ds,ydata) \
@@ -430,8 +424,6 @@ proc PlotStatsGenerate {varname} {
     upvar #0 $varname var
     global $varname
 
-    set cc $var(graph,current)
-
     set min {}
     set max {}
     set mean {}