diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 20:15:16 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 20:15:16 (GMT) |
commit | 2887fd30571298c2c34d815675339ad57bff902a (patch) | |
tree | 6ccc52993bde4b7388b1333a31db8f0d2dcfbc12 /ds9/library/plotprocess.tcl | |
parent | 10c86811d11ab892d38928f353575afb5875ab88 (diff) | |
download | blt-2887fd30571298c2c34d815675339ad57bff902a.zip blt-2887fd30571298c2c34d815675339ad57bff902a.tar.gz blt-2887fd30571298c2c34d815675339ad57bff902a.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index fc7b171..6a6557a 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -248,22 +248,6 @@ proc PlotCmdSaveConfig {fn} { } } -proc PlotCmdSet {which value {cmd {}}} { - global cvarname - upvar #0 $cvarname cvar - - set cvar($which) $value - if {$cmd != {}} { - eval $cmd $cvarname - } -} - -proc PlotCmdPrint {} { - global cvarname - - PlotPostScript $cvarname -} - proc PlotCmdUpdateGraph {which value} { global cvarname upvar #0 $cvarname cvar @@ -302,14 +286,6 @@ proc PlotCmdFontStyle {which value} { $cvar(proc,updategraph) $cvarname } -proc PlotCmdSelect {value} { - global cvarname - upvar #0 $cvarname cvar - - set cvar(data,current) $value - PlotCurrentData $cvarname -} - # File Menu proc ProcessPlotPrint {varname xarname iname} { upvar #0 $varname var |