diff options
Diffstat (limited to 'ds9/library/3d.tcl')
-rw-r--r-- | ds9/library/3d.tcl | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/ds9/library/3d.tcl b/ds9/library/3d.tcl index 9b258ec..6a42f92 100644 --- a/ds9/library/3d.tcl +++ b/ds9/library/3d.tcl @@ -462,26 +462,19 @@ proc PrefsDialog3d {} { proc Process3DCmd {varname iname} { upvar $varname var - upvar $iname ii + upvar $iname i - global threed - 3DDialog - threed::YY_FLUSH_BUFFER - threed::yy_scan_string [lrange $var $ii end] - threed::yyparse - incr ii [expr $threed::yycnt-1] -} - -proc oProcess3DCmd {varname iname} { - upvar $varname var - upvar $iname i + global debug + if {$debug(tcl,parser)} { + threed::YY_FLUSH_BUFFER + threed::yy_scan_string [lrange $var $i end] + threed::yyparse + incr i [expr $threed::yycnt-1] + } else { global threed - - 3DDialog - switch -- [string tolower [lindex $var $i]] { open {} close {3DDestroyDialog} @@ -574,6 +567,7 @@ proc oProcess3DCmd {varname iname} { default {Create3DFrame; incr i -1} } } +} proc ProcessSend3DCmd {proc id param} { global threed |