diff options
Diffstat (limited to 'ds9/library/plot.tcl')
| -rw-r--r-- | ds9/library/plot.tcl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 37620ab..9ebec8f 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -210,6 +210,12 @@ proc PlotDeleteGraph {varname} { upvar #0 $varname var global $varname + # reset layout if strip + if {$var(layout) == {strip}} { + set var(layout) column + PlotChangeLayout $varname + } + set cc $var(graph,current) # remove menu item @@ -909,10 +915,9 @@ proc PlotTitle {varname title xaxis yaxis} { upvar #0 $varname var global $varname -# waj -# set var(graph,title) "$title" -# set var(graph,axis,x,title) "$xaxis" -# set var(graph,axis,y,title) "$yaxis" + set var(graph,title) "$title" + set var(graph,axis,x,title) "$xaxis" + set var(graph,axis,y,title) "$yaxis" PlotUpdateGraph $varname } |