add ds9 pixeltable parser

1 files changed, 17 insertions, 0 deletions

diff --git a/ds9/library/pixel.tcl b/ds9/library/pixel.tcl
index 594bab0..5445841 100644
--- a/ds9/library/pixel.tcl
+++ b/ds9/library/pixel.tcl
@@ -266,6 +266,14 @@ proc ProcessPixelTableCmd {varname iname} {
     upvar $varname var
     upvar $iname i
 
+    global debug
+    if {$debug(tcl,parser)} {
+	pixeltable::YY_FLUSH_BUFFER
+	pixeltable::yy_scan_string [lrange $var $i end]
+	pixeltable::yyparse
+	incr i [expr $pixeltable::yycnt-1]
+    } else {
+
     switch -- [string tolower [lindex $var $i]] {
 	open -
 	yes -
@@ -285,6 +293,15 @@ proc ProcessPixelTableCmd {varname iname} {
 	}
     }
 }
+}
+
+proc PixelTableCmd {which} {
+    if {$which} {
+	PixelTableDialog
+    } else {
+	PixelTableDestroyDialog
+    }
+}
 
 proc ProcessSendPixelTableCmd {proc id param sock fn} {
     PixelTableDialog