diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-06-06 19:12:24 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-06-06 19:12:24 (GMT) |
commit | d96b6868ce44cf9094f22a17054a7b6d316fbb3e (patch) | |
tree | ca3a3ed40b979c174297354d8e6aff4283d27dcd /ds9/library/plotstate.tcl | |
parent | d953f256a5c736b285d0a762caf0dabcbe5df4b5 (diff) | |
download | blt-d96b6868ce44cf9094f22a17054a7b6d316fbb3e.zip blt-d96b6868ce44cf9094f22a17054a7b6d316fbb3e.tar.gz blt-d96b6868ce44cf9094f22a17054a7b6d316fbb3e.tar.bz2 |
support multiple graphs per plot
Diffstat (limited to 'ds9/library/plotstate.tcl')
-rw-r--r-- | ds9/library/plotstate.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ds9/library/plotstate.tcl b/ds9/library/plotstate.tcl index 2b9cf53..aeacd6b 100644 --- a/ds9/library/plotstate.tcl +++ b/ds9/library/plotstate.tcl @@ -89,6 +89,11 @@ proc PlotInitGraph {varname} { global pap + set cc $var(graph,current) + set nn $var($cc,data,current) + set var(graph) $var($cc) + set var(graph,ds) $nn + # per Graph set var(graph,legend) $pap(graph,legend) set var(graph,legend,title) $pap(graph,legend,title) @@ -210,6 +215,8 @@ proc PlotRestoreState {varname} { set cc $var(graph,current) set nn $var($cc,data,current) + set var(graph) $var($cc) + set var(graph,ds) $nn # per Graph set var(graph,title) $var($cc,title) |