diff options
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/magnifier.tcl | 13 | ||||
| -rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 8 insertions, 7 deletions
diff --git a/ds9/library/magnifier.tcl b/ds9/library/magnifier.tcl index 2ddfd1b..fe0ad11 100644 --- a/ds9/library/magnifier.tcl +++ b/ds9/library/magnifier.tcl @@ -147,14 +147,13 @@ proc ProcessMagnifierCmd {varname iname} { } proc ProcessSendMagnifierCmd {proc id param {sock {}} {fn {}}} { - global pmagnifier + global parse + set parse(proc) $proc + set parse(id) $id - switch -- [string tolower [lindex $param 0]] { - color {$proc $id "$pmagnifier(color)\n"} - zoom {$proc $id "$pmagnifier(zoom)\n"} - cursor {$proc $id [ToYesNo $pmagnifier(cursor)]} - region {$proc $id [ToYesNo $pmagnifier(region)]} - } + magnifiersend::YY_FLUSH_BUFFER + magnifiersend::yy_scan_string $param + magnifiersend::yyparse } diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 4492bbe..2a16199 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -282,6 +282,8 @@ source $ds9(root)/library/locksendparser.tcl source $ds9(root)/library/locksendlex.tcl source $ds9(root)/library/magnifierparser.tcl source $ds9(root)/library/magnifierlex.tcl +source $ds9(root)/library/magnifiersendparser.tcl +source $ds9(root)/library/magnifiersendlex.tcl source $ds9(root)/library/maskparser.tcl source $ds9(root)/library/masklex.tcl source $ds9(root)/library/matchparser.tcl |