diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 17:41:59 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 17:41:59 (GMT) |
commit | 9c46708c0520bd5fc929579d8b0957704c3c3a14 (patch) | |
tree | 903b385472fcb29dc20dc890f03abb54766e13a7 /ds9/library/block.tcl | |
parent | f622a7b9c71902acc1d6914510a86a26eb3608d3 (diff) | |
download | blt-9c46708c0520bd5fc929579d8b0957704c3c3a14.zip blt-9c46708c0520bd5fc929579d8b0957704c3c3a14.tar.gz blt-9c46708c0520bd5fc929579d8b0957704c3c3a14.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/block.tcl')
-rw-r--r-- | ds9/library/block.tcl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/ds9/library/block.tcl b/ds9/library/block.tcl index 18dba19..eb22c07 100644 --- a/ds9/library/block.tcl +++ b/ds9/library/block.tcl @@ -295,15 +295,6 @@ proc ProcessBlockCmd {varname iname} { incr i [expr $block::yycnt-1] } -proc BlockCmdSet {which value {cmd {}}} { - global block - - set block($which) $value - if {$cmd != {}} { - eval $cmd - } -} - proc ProcessSendBlockCmd {proc id param {sock {}} {fn {}}} { global block |