support multiple graphs per plot

2 files changed, 7 insertions, 6 deletions

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index fbf8817..1e2e8ec 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -177,8 +177,8 @@ proc PlotAddGraph {varname type} {
     }
 
     $var(graph,proc,updateelement) $varname
-    PlotUpdateGraph $varname
     PlotUpdateCanvas $varname
+    PlotUpdateGraph $varname
 
     PlotUpdateMenus $varname
 
@@ -252,15 +252,15 @@ proc PlotDeleteGraph {varname} {
     PlotRestoreState $varname
 
     $var(graph,proc,updateelement) $varname
-    PlotUpdateGraph $varname
     PlotUpdateCanvas $varname
-
-    PlotLayoutCanvas $varname
+    PlotUpdateGraph $varname
 
     PlotUpdateMenus $varname
 
     PlotStats $varname
     PlotList $varname
+
+    PlotLayoutCanvas $varname
 }
 
 # Data
@@ -407,9 +407,10 @@ proc PlotChangeLayout {varname} {
     upvar #0 $varname var
     global $varname
 
-    PlotLayoutCanvas $varname
     PlotUpdateCanvas $varname
     PlotUpdateMenus $varname
+
+    PlotLayoutCanvas $varname
 }
 
 proc PlotChangeMode {varname} {
diff --git a/ds9/library/plotconfig.tcl b/ds9/library/plotconfig.tcl
index 9ca3b67..c79c1e2 100644
--- a/ds9/library/plotconfig.tcl
+++ b/ds9/library/plotconfig.tcl
@@ -181,8 +181,8 @@ proc PlotLoadConfigFile {varname filename} {
     }
 
     $var(graph,proc,updateelement) $varname
-    PlotUpdateGraph $varname
     PlotUpdateCanvas $varname
+    PlotUpdateGraph $varname
 
     PlotUpdateMenus $varname
 }