diff options
Diffstat (limited to 'ds9/library/util.tcl')
| -rw-r--r-- | ds9/library/util.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index de85100..e8e82fa 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -218,7 +218,12 @@ proc ProcessSendCmdSend {ext cmd} { return } - set rr [$current(frame) $cmd] + ProcessSendCmdResult $ext [$current(frame) $cmd] +} + +proc ProcessSendCmdResult {ext rr} { + global parse + if {$parse(sock) != {}} { # not implemented } elseif {$parse(fn) != {}} { @@ -232,6 +237,7 @@ proc ProcessSendCmdSend {ext cmd} { } } +# old proc ProcessSend {proc id sock fn ext rr} { if {$sock != {}} { # not implemented |