update ds9 parsers

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