diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-21 17:46:02 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-21 17:46:02 (GMT) |
| commit | 09cac055005e62037e2170e83b6c0d217330bff2 (patch) | |
| tree | b4af0a07e26790473c7eff44a4f04cd9e1edec46 /ds9/library/plot.tcl | |
| parent | e1a0f81dbfcd8f731d436b3ea1bf865bc9cb6b57 (diff) | |
| download | blt-09cac055005e62037e2170e83b6c0d217330bff2.zip blt-09cac055005e62037e2170e83b6c0d217330bff2.tar.gz blt-09cac055005e62037e2170e83b6c0d217330bff2.tar.bz2 | |
support multiple graphs per plot
Diffstat (limited to 'ds9/library/plot.tcl')
| -rw-r--r-- | ds9/library/plot.tcl | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 6cf6d25..7cbbfeb 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -156,10 +156,11 @@ proc PlotAddGraph {varname} { # update menus $var(proc,updateelement) $varname - $var(proc,updategraph) $varname + PlotUpdateGraph $varname $var(proc,updatecanvas) $varname - PlotUpdateDataSetMenu $varname + PlotUpdateGraphMenu $varname + PlotUpdateDataMenu $varname PlotStats $varname PlotList $varname @@ -230,12 +231,13 @@ proc PlotDeleteGraph {varname} { # update menus $var(proc,updateelement) $varname - $var(proc,updategraph) $varname + PlotUpdateGraph $varname $var(proc,updatecanvas) $varname PlotLayoutCanvas $varname - PlotUpdateDataSetMenu $varname + PlotUpdateGraphMenu $varname + PlotUpdateDataMenu $varname PlotStats $varname PlotList $varname @@ -265,7 +267,7 @@ proc PlotAddElement {varname} { # update menus $var(proc,updateelement) $varname - PlotUpdateDataSetMenu $varname + PlotUpdateGraphMenu $varname PlotStats $varname PlotList $varname @@ -342,7 +344,7 @@ proc PlotDeleteDataSet {varname} { # update menus $var(proc,updateelement) $varname - PlotUpdateDataSetMenu $varname + PlotUpdateGraphMenu $varname PlotStats $varname PlotList $varname @@ -358,7 +360,8 @@ proc PlotCurrentGraph {varname} { PlotRestoreState $varname - PlotUpdateDataSetMenu $varname + PlotUpdateGraphMenu $varname + PlotUpdateDataMenu $varname PlotStats $varname PlotList $varname @@ -684,7 +687,7 @@ proc PlotTitle {varname title xaxis yaxis} { set var(graph,axis,x,title) "$xaxis" set var(graph,axis,y,title) "$yaxis" - $var(proc,updategraph) $varname + PlotUpdateGraph $varname } proc PlotBackup {ch dir} { |