add strip plot

1 files changed, 44 insertions, 41 deletions

diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl
index 2b96854..3d08f87 100644
--- a/ds9/library/plotdialog.tcl
+++ b/ds9/library/plotdialog.tcl
@@ -52,6 +52,7 @@ proc PlotDialog {varname wtt title xaxis yaxis} {
     $var(mb) add cascade -label [msgcat::mc {File}] -menu $var(mb).file
     $var(mb) add cascade -label [msgcat::mc {Edit}] -menu $var(mb).edit
     $var(mb) add cascade -label [msgcat::mc {Graph}] -menu $var(mb).graph
+    $var(mb) add cascade -label [msgcat::mc {Axes}] -menu $var(mb).axes
     $var(mb) add cascade -label [msgcat::mc {Data}] -menu $var(mb).data
 
     menu $var(mb).file
@@ -129,10 +130,6 @@ proc PlotDialog {varname wtt title xaxis yaxis} {
 
     # Graph
     menu $var(mb).graph
-    $var(mb).graph add cascade -label [msgcat::mc {Axes}] \
-	-menu $var(mb).graph.axes
-    $var(mb).graph add cascade -label [msgcat::mc {Legend}] \
-	-menu $var(mb).graph.legend
     $var(mb).graph add cascade -label [msgcat::mc {Font}] \
 	-menu $var(mb).graph.font
     $var(mb).graph add cascade -label [msgcat::mc {Background}] \
@@ -141,68 +138,74 @@ proc PlotDialog {varname wtt title xaxis yaxis} {
     $var(mb).graph add command -label "[msgcat::mc {Title}]..." \
 	-command [list PlotTitleDialog $varname]
 
-    menu $var(mb).graph.axes
-    $var(mb).graph.axes add checkbutton -label [msgcat::mc {X Grid}] \
+    menu $var(mb).graph.font
+    $var(mb).graph.font add cascade -label [msgcat::mc {Title}] \
+	-menu $var(mb).graph.font.title
+    $var(mb).graph.font add cascade -label [msgcat::mc {Axes Title}] \
+	-menu $var(mb).graph.font.textlab
+    $var(mb).graph.font add cascade -label [msgcat::mc {Axes Number}] \
+	-menu $var(mb).graph.font.numlab
+    $var(mb).graph.font add cascade -label [msgcat::mc {Legend Title}] \
+	-menu $var(mb).graph.font.legendtitle
+    $var(mb).graph.font add cascade -label [msgcat::mc {Legend}] \
+	-menu $var(mb).graph.font.legend
+
+    FontMenu $var(mb).graph.font.title $varname graph,title,family graph,title,size graph,title,weight graph,title,slant [list $var(proc,updategraph) $varname]
+    FontMenu $var(mb).graph.font.textlab $varname axis,title,family axis,title,size axis,title,weight axis,title,slant [list $var(proc,updategraph) $varname]
+    FontMenu $var(mb).graph.font.numlab $varname axis,font,family axis,font,size axis,font,weight axis,font,slant [list $var(proc,updategraph) $varname]
+    FontMenu $var(mb).graph.font.legendtitle $varname legend,title,family legend,title,size legend,title,weight legend,title,slant [list $var(proc,updategraph) $varname]
+    FontMenu $var(mb).graph.font.legend $varname legend,font,family legend,font,size legend,font,weight legend,font,slant [list $var(proc,updategraph) $varname]
+
+    PlotColorMenu $var(mb).graph.bg $varname graph,bg [list $var(proc,updategraph) $varname]
+
+    # Axes
+    $var(mb).axes add cascade -label [msgcat::mc {Grid}] \
+	-menu $var(mb).axes.grid
+    $var(mb).graph add cascade -label [msgcat::mc {Legend}] \
+	-menu $var(mb).axes.legend
+
+    menu $var(mb).axes.grid
+    $var(mb).axes.grid add checkbutton -label [msgcat::mc {X Grid}] \
 	-variable ${varname}(axis,x,grid) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.axes add checkbutton -label [msgcat::mc {Log}] \
+    $var(mb).axes.grid add checkbutton -label [msgcat::mc {Log}] \
 	-variable ${varname}(axis,x,log) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.axes add checkbutton -label [msgcat::mc {Flip}] \
+    $var(mb).axes.grid add checkbutton -label [msgcat::mc {Flip}] \
 	-variable ${varname}(axis,x,flip) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.axes add separator
-    $var(mb).graph.axes add checkbutton -label [msgcat::mc {Y Grid}] \
+    $var(mb).axes.grid add separator
+    $var(mb).axes.grid add checkbutton -label [msgcat::mc {Y Grid}] \
 	-variable ${varname}(axis,y,grid) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.axes add checkbutton -label [msgcat::mc {Log}] \
+    $var(mb).axes.grid add checkbutton -label [msgcat::mc {Log}] \
 	-variable ${varname}(axis,y,log) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.axes add checkbutton -label [msgcat::mc {Flip}] \
+    $var(mb).axes.grid add checkbutton -label [msgcat::mc {Flip}] \
 	-variable ${varname}(axis,y,flip) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.axes add separator
-    $var(mb).graph.axes add command -label "[msgcat::mc {Range}]..." \
+    $var(mb).axes.grid add separator
+    $var(mb).axes.grid add command -label "[msgcat::mc {Range}]..." \
 	-command [list PlotRangeDialog $varname]
 
-    menu $var(mb).graph.legend
-    $var(mb).graph.legend add checkbutton -label [msgcat::mc {Show}] \
+    menu $var(mb).axes.legend
+    $var(mb).axes.legend add checkbutton -label [msgcat::mc {Show}] \
 	-variable ${varname}(legend) \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.legend add separator
-    $var(mb).graph.legend add radiobutton -label [msgcat::mc {Right}] \
+    $var(mb).axes.legend add separator
+    $var(mb).axes.legend add radiobutton -label [msgcat::mc {Right}] \
 	-variable ${varname}(legend,position) -value right \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.legend add radiobutton -label [msgcat::mc {Left}] \
+    $var(mb).axes.legend add radiobutton -label [msgcat::mc {Left}] \
 	-variable ${varname}(legend,position) -value left \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.legend add radiobutton -label [msgcat::mc {Top}] \
+    $var(mb).axes.legend add radiobutton -label [msgcat::mc {Top}] \
 	-variable ${varname}(legend,position) -value top \
 	-command [list $var(proc,updategraph) $varname]
-    $var(mb).graph.legend add radiobutton -label [msgcat::mc {Bottom}] \
+    $var(mb).axes.legend add radiobutton -label [msgcat::mc {Bottom}] \
 	-variable ${varname}(legend,position) -value bottom \
 	-command [list $var(proc,updategraph) $varname]
 
-    menu $var(mb).graph.font
-    $var(mb).graph.font add cascade -label [msgcat::mc {Title}] \
-	-menu $var(mb).graph.font.title
-    $var(mb).graph.font add cascade -label [msgcat::mc {Axes Title}] \
-	-menu $var(mb).graph.font.textlab
-    $var(mb).graph.font add cascade -label [msgcat::mc {Axes Number}] \
-	-menu $var(mb).graph.font.numlab
-    $var(mb).graph.font add cascade -label [msgcat::mc {Legend Title}] \
-	-menu $var(mb).graph.font.legendtitle
-    $var(mb).graph.font add cascade -label [msgcat::mc {Legend}] \
-	-menu $var(mb).graph.font.legend
-
-    FontMenu $var(mb).graph.font.title $varname graph,title,family graph,title,size graph,title,weight graph,title,slant [list $var(proc,updategraph) $varname]
-    FontMenu $var(mb).graph.font.textlab $varname axis,title,family axis,title,size axis,title,weight axis,title,slant [list $var(proc,updategraph) $varname]
-    FontMenu $var(mb).graph.font.numlab $varname axis,font,family axis,font,size axis,font,weight axis,font,slant [list $var(proc,updategraph) $varname]
-    FontMenu $var(mb).graph.font.legendtitle $varname legend,title,family legend,title,size legend,title,weight legend,title,slant [list $var(proc,updategraph) $varname]
-    FontMenu $var(mb).graph.font.legend $varname legend,font,family legend,font,size legend,font,weight legend,font,slant [list $var(proc,updategraph) $varname]
-
-    PlotColorMenu $var(mb).graph.bg $varname graph,bg [list $var(proc,updategraph) $varname]
-
     # dataset
     menu $var(mb).data
     $var(mb).data add cascade -label [msgcat::mc {Select}] \