diff options
Diffstat (limited to 'ds9/library/plotstate.tcl')
-rw-r--r-- | ds9/library/plotstate.tcl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/ds9/library/plotstate.tcl b/ds9/library/plotstate.tcl index d3c40f2..15c5579 100644 --- a/ds9/library/plotstate.tcl +++ b/ds9/library/plotstate.tcl @@ -37,8 +37,6 @@ proc PlotDefState {} { set pap(axis,font,slant) roman # per Graph - set pap(graph,title) {} - set pap(graph,legend) 0 set pap(graph,legend,title) Legend set pap(graph,legend,position) right @@ -95,6 +93,8 @@ proc PlotInitGraph {varname} { # per Graph set var(graph,format) 1 + set var(graph,title) {} + set var(graph,legend) $pap(graph,legend) set var(graph,legend,title) $pap(graph,legend,title) set var(graph,legend,position) $pap(graph,legend,position) @@ -154,9 +154,11 @@ proc PlotSaveState {varname} { set cc $var(graph,current) set nn $var($cc,data,current) + puts "PlotSaveState $cc" + # per Graph - set var($cc,title) $var(graph,title) set var($cc,format) $var(graph,format) + set var($cc,title) $var(graph,title) set var($cc,legend) $var(graph,legend) set var($cc,legend,title) $var(graph,legend,title) @@ -218,9 +220,11 @@ proc PlotRestoreState {varname} { set nn $var($cc,data,current) set var(graph) $var($cc) + puts "PlotRestoreState $cc" + # per Graph - set var(graph,title) $var($cc,title) set var(graph,format) $var($cc,format) + set var(graph,title) $var($cc,title) set var(graph,legend) $var($cc,legend) set var(graph,legend,title) $var($cc,legend,title) |