diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-22 18:58:36 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-22 18:58:36 (GMT) |
commit | 0187eb22078f1d8b1b3e07c041a4e6a2ed9ea713 (patch) | |
tree | bac503bb68f620a0d67af09406b7ec1a7e40856a | |
parent | a1e5f0b70c1f71cdd099352bffa28350c7b7314f (diff) | |
download | blt-0187eb22078f1d8b1b3e07c041a4e6a2ed9ea713.zip blt-0187eb22078f1d8b1b3e07c041a4e6a2ed9ea713.tar.gz blt-0187eb22078f1d8b1b3e07c041a4e6a2ed9ea713.tar.bz2 |
add strip plot
-rw-r--r-- | ds9/library/plotdialog.tcl | 85 |
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}] \ |