diff options
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 |