diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 18:44:33 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 18:44:33 (GMT) |
commit | 5ef46e82c2166227ec7966c6844f9da625bc9a7b (patch) | |
tree | 55f1528586f494bade5e018e664ac7ac1c02c4cf /ds9/library/print.tcl | |
parent | 1c67d6f171b0c716a01ffcc04a697ac312cda953 (diff) | |
download | blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.zip blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.tar.gz blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/print.tcl')
-rw-r--r-- | ds9/library/print.tcl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/ds9/library/print.tcl b/ds9/library/print.tcl index d82e53d..953e410 100644 --- a/ds9/library/print.tcl +++ b/ds9/library/print.tcl @@ -586,15 +586,6 @@ proc ProcessPSPrintCmd {varname iname} { incr i [expr $ps::yycnt-1] } -proc PSCmdSet {which value {cmd {}}} { - global ps - - set ps($which) $value - if {$cmd != {}} { - eval $cmd - } -} - proc ProcessSendPSPrintCmd {proc id param {sock {}} {fn {}}} { global ps |