diff options
Diffstat (limited to 'ds9/library/mask.tcl')
-rw-r--r-- | ds9/library/mask.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl index 8775abe..58036b4 100644 --- a/ds9/library/mask.tcl +++ b/ds9/library/mask.tcl @@ -273,12 +273,12 @@ proc ProcessMaskCmd {varname iname} { } proc ProcessSendMaskCmd {proc id param {sock {}} {fn {}}} { - global mask + global parse + set parse(proc) $proc + set parse(id) $id - switch -- [string tolower $param] { - color {$proc $id "$mask(color)\n"} - mark {$proc $id "$mask(mark)\n"} - transparency {$proc $id "$mask(transparency)\n"} - } + masksend::YY_FLUSH_BUFFER + masksend::yy_scan_string $param + masksend::yyparse } |