From 2a212b52be51e50544cfe6ee57c00d7f83acd4b4 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 26 Jul 2019 12:37:37 -0400
Subject: support multiple graphs per  plot

---
 ds9/library/plot.tcl       | 11 ++++++-----
 ds9/library/plotconfig.tcl |  2 +-
 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
 }
-- 
cgit v0.12