diff options
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index b4dcd6b..bfe02a6 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -100,6 +100,13 @@ proc PrefsDialogPlot {} { } proc ProcessPlotCmd {xarname iname buf fn} { + global debug + if {$debug(tcl,parser)} { + plot::YY_FLUSH_BUFFER + plot::yy_scan_string [lrange $var $i end] + plot::yyparse + incr i [expr $plot::yycnt-1] + } else { upvar $xarname xar upvar $iname i @@ -433,6 +440,7 @@ proc ProcessPlotCmd {xarname iname buf fn} { # force update update idletasks } +} proc ProcessPlotNew {varname xarname iname buf} { upvar #0 $varname var |