diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-31 18:14:42 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-31 18:14:42 (GMT) |
| commit | 26eb60d30ba6391cc9dee34d5d01472d42566ad2 (patch) | |
| tree | 4fe2d6c2a424bb1b22f431528ce75fd50172414f /ds9/library/plotprocess.tcl | |
| parent | 1dcf4d5e0309b72a2f4e2699cfe77028ca5bfd12 (diff) | |
| download | blt-26eb60d30ba6391cc9dee34d5d01472d42566ad2.zip blt-26eb60d30ba6391cc9dee34d5d01472d42566ad2.tar.gz blt-26eb60d30ba6391cc9dee34d5d01472d42566ad2.tar.bz2 | |
add multiple plot support
Diffstat (limited to 'ds9/library/plotprocess.tcl')
| -rw-r--r-- | ds9/library/plotprocess.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index 8c5d5a7..69c6633 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -274,6 +274,14 @@ proc PlotCmdSaveConfig {fn} { } } +proc PlotCmdUpdateCanvas {which value} { + global cvarname + upvar #0 $cvarname cvar + + set cvar($which) $value + $cvar(proc,updatecanvas) $cvarname +} + proc PlotCmdUpdateGraph {which value} { global cvarname upvar #0 $cvarname cvar |