diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-06-07 20:07:15 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-06-07 20:07:15 (GMT) |
| commit | 8089027d323727dc920045a7b3040daa33c14f4c (patch) | |
| tree | 1f3ccad255110f4b9be1ce1c00b770404f52afed /ds9/library/plot.tcl | |
| parent | 3e0e98282ec1f35833f975990cbd69a12843c475 (diff) | |
| download | blt-8089027d323727dc920045a7b3040daa33c14f4c.zip blt-8089027d323727dc920045a7b3040daa33c14f4c.tar.gz blt-8089027d323727dc920045a7b3040daa33c14f4c.tar.bz2 | |
support multiple graphs per plot
Diffstat (limited to 'ds9/library/plot.tcl')
| -rw-r--r-- | ds9/library/plot.tcl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 328a85a..1d91250 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -27,10 +27,6 @@ proc PlotAddGraph {varname} { global ds9 global pap - if {$var(graphs) != {}} { - PlotSaveState $varname - } - incr ${varname}(seq) set cc "graph$var(seq)" lappend var(graphs) $cc @@ -42,7 +38,6 @@ proc PlotAddGraph {varname} { $var(proc,addgraph) $varname PlotInitGraph $varname - PlotSaveState $varname $var(proc,updategraph) $varname $var(proc,updatecanvas) $varname @@ -121,6 +116,8 @@ proc PlotAddElement {varname} { $var(mb).graph.select add radiobutton -label "$var(graph,ds,name)" \ -variable ${varname}($cc,data,current) -value $nn \ -command [list PlotCurrent $varname] + + $var(proc,updateelement) $varname } proc PlotCurrent {varname} { @@ -218,7 +215,6 @@ proc PlotExternal {varname} { set var(graph,ds,manage) 0 set var(graph,ds,name) "Dataset $nn" - PlotSaveState $varname PlotAddElement $varname } @@ -366,6 +362,8 @@ proc PlotUpdateCanvas {varname} { global $varname global ds9 + PlotSaveState $varname + foreach cc $var(graphs) { $var($cc) configure -plotpadx 0 -plotpady 0 \ -font "{$ds9($var(graph,title,family))} $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)" \ |