diff options
Diffstat (limited to 'ds9/library/skyview.tcl')
| -rw-r--r-- | ds9/library/skyview.tcl | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/ds9/library/skyview.tcl b/ds9/library/skyview.tcl index aa31969..ecfe17c 100644 --- a/ds9/library/skyview.tcl +++ b/ds9/library/skyview.tcl @@ -606,22 +606,19 @@ Maintained by: Laura McDonald lmm@skyview.gsfc.nasa.gov proc ProcessSkyViewCmd {varname iname} { upvar $varname var - upvar $iname ii - - SkyViewDialog - - skyview::YY_FLUSH_BUFFER - skyview::yy_scan_string [lrange $var $ii end] - skyview::yyparse - incr ii [expr $skyview::yycnt-1] -} - -proc oProcessSkyViewCmd {varname iname} { - upvar $varname var upvar $iname i SkyViewDialog - IMGSVRProcessCmd $varname $iname dskyview + + global debug + if {$debug(tcl,parser)} { + skyview::YY_FLUSH_BUFFER + skyview::yy_scan_string [lrange $var $i end] + skyview::yyparse + incr i [expr $skyview::yycnt-1] + } else { + IMGSVRProcessCmd $varname $iname dskyview + } } proc ProcessSendSkyViewCmd {proc id param} { |