1 files changed, 35 insertions, 9 deletions

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index 98cf932..7a8bd42 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -53,6 +53,15 @@ proc PlotDef {} {
     set pap(axis,y,max) {}
     set pap(axis,y,format) {}
 
+    set pap(axis,y,title,res) {}
+    set pap(axis,y,grid,res) 1
+    set pap(axis,y,log,res) 0
+    set pap(axis,y,flip,res) 0
+    set pap(axis,y,auto,res) 1
+    set pap(axis,y,min,res) {}
+    set pap(axis,y,max,res) {}
+    set pap(axis,y,format,res) {}
+
     set pap(axis,title,family) helvetica
     set pap(axis,title,size) 9
     set pap(axis,title,weight) normal
@@ -152,7 +161,12 @@ proc PlotClearData {varname} {
 	set var(axis,y,max) {}
 	set var(axis,y,format) {}
 	
-	$var(mb).select delete $ds9(menu,start) end
+	set var(axis,y,auto,res) 1
+	set var(axis,y,min,res) {}
+	set var(axis,y,max,res) {}
+	set var(axis,y,format,res) {}
+
+	$var(mb).data.select delete $ds9(menu,start) end
 
 	$var(proc,updategraph) $varname
 	PlotStats $varname
@@ -161,7 +175,7 @@ proc PlotClearData {varname} {
  	set var(data,total) 1
  	set var(data,current) 1
 
-	$var(mb).select delete [expr $ds9(menu,start)+1] end
+	$var(mb).data.select delete [expr $ds9(menu,start)+1] end
  	PlotCurrentData $varname
 	$var(proc,updategraph) $varname
     }
@@ -247,7 +261,7 @@ proc PlotDataSetOne {varname dim data} {
 
     # basics xy
     set var(manage) 1
-    set var(name) "Dataset $nn"
+    set var(name) "Data Set $nn"
     set var(xdata) $xdata
     set var(ydata) $ydata
     global $var(xdata) $var(ydata)
@@ -413,7 +427,7 @@ proc PlotDataSetOne {varname dim data} {
     PlotGetVar $varname $nn
 
     # update data set menu
-    $var(mb).select add radiobutton -label "$var(name)" \
+    $var(mb).data.select add radiobutton -label "$var(name)" \
 	-variable ${varname}(data,current) -value $nn \
 	-command [list PlotCurrentData $varname]
 
@@ -435,7 +449,7 @@ proc PlotDupData {varname mm} {
     set pp [expr $nn-1]
 
     # new vector names
-    set var($nn,name) "Dataset $nn"
+    set var($nn,name) "Data Set $nn"
     set var($nn,xdata)  ap${varname}xx${nn}
     set var($nn,ydata)  ap${varname}yy${nn}
     set var($nn,xedata) ap${varname}xe${nn}
@@ -476,7 +490,7 @@ proc PlotDupData {varname mm} {
     set var($nn,bar,relief) $var($mm,bar,relief)
 
     # update data set menu
-    $var(mb).select add radiobutton -label "$var($nn,name)" \
+    $var(mb).data.select add radiobutton -label "$var($nn,name)" \
 	-variable ${varname}(data,current) -value $nn \
 	-command [list PlotCurrentData $varname]
 
@@ -562,7 +576,7 @@ proc PlotExternal {varname} {
     set nn $var(data,total)
     set var(data,current) $nn
 
-    set var(name) "Dataset $nn"
+    set var(name) "Data Set $nn"
 
     set var($nn,manage) $var(manage)
     set var($nn,dim) $var(dim)
@@ -575,7 +589,8 @@ proc PlotExternal {varname} {
     PlotGetVar $varname $nn
 
     # update data set menu
-    $var(mb).select add radiobutton -label "[msgcat::mc {Dataset}] $nn" \
+    $var(mb).data.select add radiobutton \
+	-label "[msgcat::mc {Data Set}] $nn" \
 	-variable ${varname}(data,current) -value $nn \
 	-command "PlotCurrentData $varname"
 
@@ -880,6 +895,15 @@ proc PlotSaveConfigFile {varname filename} {
     set analysisplot(axis,y,max) $var(axis,y,max)
     set analysisplot(axis,y,format) $var(axis,y,format)
 
+    set analysisplot(axis,y,title,res) $var(axis,y,title,res)
+    set analysisplot(axis,y,grid,res) $var(axis,y,grid,res)
+    set analysisplot(axis,y,log,res) $var(axis,y,log,res) 
+    set analysisplot(axis,y,flip,res) $var(axis,y,flip,res) 
+    set analysisplot(axis,y,auto,res) $var(axis,y,auto,res)
+    set analysisplot(axis,y,min,res) $var(axis,y,min,res)
+    set analysisplot(axis,y,max,res) $var(axis,y,max,res)
+    set analysisplot(axis,y,format,res) $var(axis,y,format,res)
+
     set analysisplot(axis,title,family) $var(axis,title,family) 
     set analysisplot(axis,title,size) $var(axis,title,size) 
     set analysisplot(axis,title,weight) $var(axis,title,weight) 
@@ -1025,13 +1049,14 @@ proc PlotStatsDestroyCB {varname} {
     set var(stats) 0
 }
 
-proc PlotTitle {varname title xaxis yaxis} {
+proc PlotTitle {varname title xaxis yaxis {yaxis2 {}}} {
     upvar #0 $varname var
     global $varname
 
     set var(graph,title) "$title"
     set var(axis,x,title) "$xaxis"
     set var(axis,y,title) "$yaxis"
+    set var(axis,y,title,res) "$yaxis2"
 }
 
 proc PlotUpdateGraph {varname} {
@@ -1253,6 +1278,7 @@ proc PlotBackup {ch dir} {
 		line {puts $ch "PlotLineTool"}
 		bar {puts $ch "PlotBarTool"}
 		scatter {puts $ch "PlotScatterTool"}
+		strip {puts $ch "PlotStripTool"}
 	    }
 
 	    set save $var(data,current)