1 files changed, 19 insertions, 2 deletions
diff --git a/ds9/library/block.tcl b/ds9/library/block.tcl
index f729e28..8a03620 100644
--- a/ds9/library/block.tcl
+++ b/ds9/library/block.tcl
@@ -179,9 +179,8 @@ proc BlockDestroyDialog {} {
     if {[winfo exists $iblock(top)]} {
 	destroy $iblock(top)
 	destroy $iblock(mb)
+	unset dblock
     }
-
-    unset dblock
 }
 
 proc UpdateBlockDialog {} {
@@ -290,6 +289,14 @@ proc ProcessBlockCmd {varname iname} {
     # we need to be realized
     ProcessRealizeDS9
 
+    global debug
+    if {$debug(tcl,parser)} {
+	block::YY_FLUSH_BUFFER
+	block::yy_scan_string [lrange $var $i end]
+	block::yyparse
+	incr i [expr $block::yycnt-1]
+    } else {
+
     global block
     switch -- [string tolower [lindex $var $i]] {
 	open {BlockDialog}
@@ -339,6 +346,16 @@ proc ProcessBlockCmd {varname iname} {
 	}
     }
 }
+}
+
+proc BlockCmdSet {which value {cmd {}}} {
+    global block
+
+    set block($which) $value
+    if {$cmd != {}} {
+	eval $cmd
+    }
+}
 
 proc ProcessSendBlockCmd {proc id param} {
     global block