MASK: fixed an issue with mask and backups

1 files changed, 28 insertions, 4 deletions

diff --git a/ds9/library/frame.tcl b/ds9/library/frame.tcl
index f953076..c2648fc 100644
--- a/ds9/library/frame.tcl
+++ b/ds9/library/frame.tcl
@@ -1834,10 +1834,7 @@ proc ClearFrame {which} {
 	return
     }
 
-    DestroyHeader $which
-    $which clear
-
-    # delete saved loadParams
+    # delete saved regular loadParams
     foreach cc {{} red green blue} {
 	set varname $which$cc
 	global $varname
@@ -1845,6 +1842,33 @@ proc ClearFrame {which} {
 	    unset $varname
 	}
     }
+
+    # delete saved file,mode loadParams
+    set cnt [$which get fits count]
+    for {set ii 2} {$ii<=$cnt} {incr ii} {
+	set varname $which.$ii
+	global $varname
+	if {[info exists $varname]} {
+	    unset $varname
+	} else {
+	    break
+	}
+    }
+
+    # delete saved mask loadParams
+    set cnt [$which get mask count]
+    for {set ii 1} {$ii<=$cnt} {incr ii} {
+	set varname $which.m${ii}
+	global $varname
+	if {[info exists $varname]} {
+	    unset $varname
+	} else {
+	    break
+	}
+    }
+
+    DestroyHeader $which
+    $which clear
 }
 
 # Private Procedures