diff options
Diffstat (limited to 'ds9/library/smooth.tcl')
| -rw-r--r-- | ds9/library/smooth.tcl | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/ds9/library/smooth.tcl b/ds9/library/smooth.tcl index f43f156..ca5a5d3 100644 --- a/ds9/library/smooth.tcl +++ b/ds9/library/smooth.tcl @@ -352,16 +352,11 @@ proc ProcessSmoothCmd {varname iname} { } proc ProcessSendSmoothCmd {proc id param {sock {}} {fn {}}} { - global smooth + global parse + set parse(proc) $proc + set parse(id) $id - switch -- [lindex $param 0] { - lock {$proc $id [ToYesNo $smooth(lock)]} - function {$proc $id "$smooth(function)\n"} - radius {$proc $id "$smooth(radius)\n"} - radiusminor {$proc $id "$smooth(radius,minor)\n"} - sigma {$proc $id "$smooth(sigma)\n"} - sigmaminor {$proc $id "$smooth(sigma,minor)\n"} - angle {$proc $id "$smooth(angle)\n"} - default {$proc $id [ToYesNo $smooth(view)]} - } + smoothsend::YY_FLUSH_BUFFER + smoothsend::yy_scan_string $param + smoothsend::yyparse } |