diff options
Diffstat (limited to 'ds9/library/2mass.tcl')
-rw-r--r-- | ds9/library/2mass.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ds9/library/2mass.tcl b/ds9/library/2mass.tcl index df4004c..24b9644 100644 --- a/ds9/library/2mass.tcl +++ b/ds9/library/2mass.tcl @@ -129,6 +129,18 @@ Foundation. proc Process2MASSCmd {varname iname} { upvar $varname var + upvar $iname ii + + 2MASSDialog + + twomass::YY_FLUSH_BUFFER + twomass::yy_scan_string [lrange $var $ii end] + twomass::yyparse + incr ii [expr $twomass::yycnt-1] +} + +proc oProcess2MASSCmd {varname iname} { + upvar $varname var upvar $iname i 2MASSDialog |