diff options
Diffstat (limited to 'ds9/library/vla.tcl')
-rw-r--r-- | ds9/library/vla.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ds9/library/vla.tcl b/ds9/library/vla.tcl index 034dfef..ef33a6f 100644 --- a/ds9/library/vla.tcl +++ b/ds9/library/vla.tcl @@ -161,6 +161,18 @@ charting of the Universe. proc ProcessVLACmd {varname iname} { upvar $varname var + upvar $iname ii + + VLADialog + + vla::YY_FLUSH_BUFFER + vla::yy_scan_string [lrange $var $ii end] + vla::yyparse + incr ii [expr $vla::yycnt-1] +} + +proc oProcessVLACmd {varname iname} { + upvar $varname var upvar $iname i VLADialog |