1 files changed, 27 insertions, 0 deletions
diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl
index 10e754b..09ece84 100644
--- a/ds9/library/mask.tcl
+++ b/ds9/library/mask.tcl
@@ -20,6 +20,24 @@ proc MaskDef {} {
     array set pmask [array get mask]
 }
 
+proc MaskMark {} {
+    global mask
+    global current
+
+    if {$current(frame) != {}} {
+	$current(frame) mask mark $mask(mark)
+    }
+}
+
+proc MaskColor {} {
+    global mask
+    global current
+
+    if {$current(frame) != {}} {
+	$current(frame) mask color $mask(color)
+    }
+}
+
 proc MaskTransparency {} {
     global mask
     global current
@@ -29,6 +47,15 @@ proc MaskTransparency {} {
     }
 }
 
+proc MaskSystem {} {
+    global mask
+    global current
+
+    if {$current(frame) != {}} {
+	$current(frame) mask system $mask(system)
+    }
+}
+
 proc MaskClear {} {
     global current