diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 18:17:21 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 18:17:21 (GMT) |
| commit | 671eda8b795f09fa708fb36c5212c9b8c339eb83 (patch) | |
| tree | 1584a4dc84f6cbebfed285a27e72fe077cc296f8 /ds9/library/util.tcl | |
| parent | 212ccd4858884d2110f4ff07324e6315c9ce940b (diff) | |
| download | blt-671eda8b795f09fa708fb36c5212c9b8c339eb83.zip blt-671eda8b795f09fa708fb36c5212c9b8c339eb83.tar.gz blt-671eda8b795f09fa708fb36c5212c9b8c339eb83.tar.bz2 | |
add ds9 frame send parser
Diffstat (limited to 'ds9/library/util.tcl')
| -rw-r--r-- | ds9/library/util.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 04073f2..6ae250f 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -357,6 +357,15 @@ proc ProcessSendCmdCurrent2 {key cmd cmd2} { } } +proc ProcessSendCmdCurrentYesNo {key cmd} { + global parse + global current + + if {$current($key) != {}} { + $parse(proc) $parse(id) "[ToYesNo [$current($key) $cmd]]" + } +} + proc ProcessSendCmdSend {ext cmd} { global parse global current |