From 20cd3a2bc44796f3b844a8f790e4ac829bfa05a7 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 26 Jul 2019 11:55:24 -0400
Subject: support multiple graphs per  plot

---
 ds9/library/plot.tcl       |  7 -------
 ds9/library/plotconfig.tcl |  2 ++
 ds9/library/plotdialog.tcl |  7 +++++++
 ds9/library/plotstate.tcl  | 14 ++++++++++++++
 4 files changed, 23 insertions(+), 7 deletions(-)

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index 32699b6..dbf3c82 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -706,13 +706,6 @@ proc PlotUpdateGraph {varname} {
 	}
     }
 
-    # Menus
-    if {$var(graph,ds,xdata) != {}} {
-	$var(mb).file entryconfig "[msgcat::mc {Save Data}]..." -state normal
-    } else {
-	$var(mb).file entryconfig "[msgcat::mc {Save Data}]..." -state disabled
-    }
-
     # Graph
     $var(graph) configure -plotpadx 0 -plotpady 0 -title $var(graph,title) 
 
diff --git a/ds9/library/plotconfig.tcl b/ds9/library/plotconfig.tcl
index 0b6c6c4..9ca3b67 100644
--- a/ds9/library/plotconfig.tcl
+++ b/ds9/library/plotconfig.tcl
@@ -183,6 +183,8 @@ proc PlotLoadConfigFile {varname filename} {
     $var(graph,proc,updateelement) $varname
     PlotUpdateGraph $varname
     PlotUpdateCanvas $varname
+
+    PlotUpdateMenus $varname
 }
 
 proc PlotSaveConfig {varname} {
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl
index 39fa809..fa9d22f 100644
--- a/ds9/library/plotdialog.tcl
+++ b/ds9/library/plotdialog.tcl
@@ -624,6 +624,13 @@ proc PlotUpdateMenus {varname} {
     upvar #0 $varname var
     global $varname
 
+    # File
+    if {$var(graph,ds,xdata) != {}} {
+	$var(mb).file entryconfig "[msgcat::mc {Save Data}]..." -state normal
+    } else {
+	$var(mb).file entryconfig "[msgcat::mc {Save Data}]..." -state disabled
+    }
+
     # Canvas
     switch $var(layout) {
 	grid {
diff --git a/ds9/library/plotstate.tcl b/ds9/library/plotstate.tcl
index 9c2858c..3ec86ad 100644
--- a/ds9/library/plotstate.tcl
+++ b/ds9/library/plotstate.tcl
@@ -11,6 +11,14 @@ proc PlotDefState {} {
     # per Canvas
     set pap(layout) grid
     set pap(layout,lock) 0
+    set pap(layout,axis,x,log) 0
+    set pap(layout,axis,x,flip) 0
+    set pap(layout,axis,x,min) 0
+    set pap(layout,axis,x,max) 0
+    set pap(layout,axis,y,log) 0
+    set pap(layout,axis,y,flip) 0
+    set pap(layout,axis,y,min) 0
+    set pap(layout,axis,y,max) 0
 
     set pap(background) white
     set pap(bar,mode) normal
@@ -109,6 +117,7 @@ proc PlotInitGraph {varname} {
 
     set var(graph,legend,title) $pap(graph,legend,title)
 
+    set var(graph,axis,x,manage) 1
     set var(graph,axis,x,title) $pap(graph,axis,x,title)
     set var(graph,axis,x,grid) $pap(graph,axis,x,grid)
     set var(graph,axis,x,log) $pap(graph,axis,x,log)
@@ -118,6 +127,7 @@ proc PlotInitGraph {varname} {
     set var(graph,axis,x,max) $pap(graph,axis,x,max)
     set var(graph,axis,x,format) $pap(graph,axis,x,format)
 
+    set var(graph,axis,y,manage) 1
     set var(graph,axis,y,title) $pap(graph,axis,y,title)
     set var(graph,axis,y,grid) $pap(graph,axis,y,grid)
     set var(graph,axis,y,log) $pap(graph,axis,y,log)
@@ -182,6 +192,7 @@ proc PlotSaveState {varname} {
 
     set var($cc,legend,title) $var(graph,legend,title)
 
+    set var($cc,axis,x,manage) $var(graph,axis,x,manage)
     set var($cc,axis,x,title) $var(graph,axis,x,title)
     set var($cc,axis,x,grid) $var(graph,axis,x,grid)
     set var($cc,axis,x,log) $var(graph,axis,x,log)
@@ -191,6 +202,7 @@ proc PlotSaveState {varname} {
     set var($cc,axis,x,max) $var(graph,axis,x,max)
     set var($cc,axis,x,format) $var(graph,axis,x,format)
 
+    set var($cc,axis,y,manage) $var(graph,axis,y,manage)
     set var($cc,axis,y,title) $var(graph,axis,y,title)
     set var($cc,axis,y,grid) $var(graph,axis,y,grid)
     set var($cc,axis,y,log) $var(graph,axis,y,log)
@@ -255,6 +267,7 @@ proc PlotRestoreState {varname} {
 
     set var(graph,legend,title) $var($cc,legend,title)
 
+    set var(graph,axis,x,manage) $var($cc,axis,x,manage)
     set var(graph,axis,x,title) $var($cc,axis,x,title)
     set var(graph,axis,x,grid) $var($cc,axis,x,grid)
     set var(graph,axis,x,log) $var($cc,axis,x,log)
@@ -264,6 +277,7 @@ proc PlotRestoreState {varname} {
     set var(graph,axis,x,max) $var($cc,axis,x,max)
     set var(graph,axis,x,format) $var($cc,axis,x,format)
 
+    set var(graph,axis,y,manage) $var($cc,axis,y,manage)
     set var(graph,axis,y,title) $var($cc,axis,y,title)
     set var(graph,axis,y,grid) $var($cc,axis,y,grid)
     set var(graph,axis,y,log) $var($cc,axis,y,log)
-- 
cgit v0.12