diff options
| -rw-r--r-- | ds9/library/plot.tcl | 6 | ||||
| -rw-r--r-- | ds9/library/plotstate.tcl | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index e01e331..d54f31f 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -641,6 +641,7 @@ proc PlotUpdateCanvas {varname} { column { set legendpos $var(legend,position) + set var(layout,axis,x,title) {} set var(layout,axis,x,min) 0 set var(layout,axis,x,max) 1 set var(layout,axis,x,grid) 1 @@ -663,6 +664,7 @@ proc PlotUpdateCanvas {varname} { set xmax $var($first,axis,x,max) } + set var(layout,axis,x,title) $var($first,axis,x,title) set var(layout,axis,x,min) $xmin set var(layout,axis,x,max) $xmax set var(layout,axis,x,grid) $var($first,axis,x,grid) @@ -778,10 +780,12 @@ proc PlotUpdateGraph {varname} { } if {$var(graph,axis,x,manage)} { + set xtitle $var(graph,axis,x,title) set xgrid $var(graph,axis,x,grid) set xlog $var(graph,axis,x,log) set xflip $var(graph,axis,x,flip) } else { + set xtitle $var(layout,axis,x,title) set xgrid $var(layout,axis,x,grid) set xlog $var(layout,axis,x,log) set xflip $var(layout,axis,x,flip) @@ -817,7 +821,7 @@ proc PlotUpdateGraph {varname} { } if {[$var(graph) xaxis cget -showticks]} { - $var(graph) xaxis configure -title $var(graph,axis,x,title) + $var(graph) xaxis configure -title $xtitle } else { $var(graph) xaxis configure -title {} } diff --git a/ds9/library/plotstate.tcl b/ds9/library/plotstate.tcl index d7fd277..58e7404 100644 --- a/ds9/library/plotstate.tcl +++ b/ds9/library/plotstate.tcl @@ -11,6 +11,7 @@ proc PlotDefState {} { # per Canvas set pap(layout) grid set pap(layout,strip,weight) 50 + set pap(layout,axis,x,title) {} set pap(layout,axis,x,min) 0 set pap(layout,axis,x,max) 0 set pap(layout,axis,x,grid) 0 |