diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 19:25:11 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 19:25:11 (GMT) |
commit | 669a10073068cf4c1366befcd2ebb0261eeff529 (patch) | |
tree | d35dd1c7b8cc5e32b0d49fc8b9740fdc39a2bc1c /ds9/library/2mass.tcl | |
parent | 5b631ef2d6903140a9a069c9ae7ca9366b367131 (diff) | |
parent | 23cb6f670d966903fab6dc53240140bb19a0fd25 (diff) | |
download | blt-669a10073068cf4c1366befcd2ebb0261eeff529.zip blt-669a10073068cf4c1366befcd2ebb0261eeff529.tar.gz blt-669a10073068cf4c1366befcd2ebb0261eeff529.tar.bz2 |
Merge branch 'devel'
Diffstat (limited to 'ds9/library/2mass.tcl')
-rw-r--r-- | ds9/library/2mass.tcl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ds9/library/2mass.tcl b/ds9/library/2mass.tcl index df4004c..aaf315f 100644 --- a/ds9/library/2mass.tcl +++ b/ds9/library/2mass.tcl @@ -132,7 +132,16 @@ proc Process2MASSCmd {varname iname} { upvar $iname i 2MASSDialog - IMGSVRProcessCmd $varname $iname dtwomass + + global debug + if {$debug(tcl,parser)} { + twomass::YY_FLUSH_BUFFER + twomass::yy_scan_string [lrange $var $i end] + twomass::yyparse + incr i [expr $twomass::yycnt-1] + } else { + IMGSVRProcessCmd $varname $iname dtwomass + } } proc ProcessSend2MASSCmd {proc id param} { |