cleanup ProcessCmd code

1 files changed, 7 insertions, 51 deletions

diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl
index a6ba7d9..d5128d9 100644
--- a/ds9/library/mask.tcl
+++ b/ds9/library/mask.tcl
@@ -261,59 +261,15 @@ proc ProcessMaskCmd {varname iname} {
     upvar $iname i
 
     global mask
+    global parse
+    set parse(result) {}
 
-    global debug
-    if {$debug(tcl,parser)} {
-	global parse
-	set parse(result) {}
-
-	mask::YY_FLUSH_BUFFER
-	mask::yy_scan_string [lrange $var $i end]
-	mask::yyparse
-	incr i [expr $mask::yycnt-1]
-
-	return $parse(result)
-    } else {
-
-    set rr {}
-    global current
-    switch -- [string tolower [lindex $var $i]] {
-	open {MaskDialog}
-	close {MaskDestroyDialog}
-	color {
-	    incr i
-	    set mask(color) [lindex $var $i]
-	    if {$current(frame) != {}} {
-		$current(frame) mask color $mask(color)
-	    }
-	}
-	mark {
-	    incr i
-	    set mask(mark) [lindex $var $i]
-	    if {$current(frame) != {}} {
-		$current(frame) mask mark $mask(mark)
-	    }
-	}
-	transparency {
-	    incr i
-	    set mask(transparency) [lindex $var $i]
-	    if {$current(frame) != {}} {
-		$current(frame) mask transparency $mask(transparency)
-	    }
-	    MaskTransparency
-	}
-	clear {
-	    MaskClear
-	}
+    mask::YY_FLUSH_BUFFER
+    mask::yy_scan_string [lrange $var $i end]
+    mask::yyparse
+    incr i [expr $mask::yycnt-1]
 
-	default {
-	    set rr mask
-	    incr i -1
-	}
-    }
-
-    return $rr
-}
+    return $parse(result)
 }
 
 proc MaskCmdSet {which value {cmd {}}} {