From 9233a3ff10963bc4f233c797184610685b6205f4 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Wed, 18 Apr 2018 12:44:37 -0400
Subject: fix -mulitframe gz problem

---
 ds9/library/multiframe.tcl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ds9/library/multiframe.tcl b/ds9/library/multiframe.tcl
index 666d81e..03a5307 100644
--- a/ds9/library/multiframe.tcl
+++ b/ds9/library/multiframe.tcl
@@ -79,17 +79,18 @@ proc LoadMultiFrameAlloc {path fn} {
 	}
 
 	# ProcessLoad will clear loadParam each time
+	# can be gz, so use allocgz
 	set loadParam(file,type) fits
 	set loadParam(file,mode) {}
+	set loadParam(load,type) allocgz
+	set loadParam(load,layer) {}
 	if {$path != {}} {
-	    set loadParam(load,type) allocgz
 	    set loadParam(file,name) "stdin\[$ext\]"
 	    set loadParam(file,fn) "$path\[$ext\]"
 	} else {
-	    set loadParam(load,type) mmapincr
 	    set loadParam(file,name) "$fn\[$ext\]"
+	    set loadParam(file,fn) "$fn\[$ext\]"
 	}
-	set loadParam(load,layer) {}
 
 	if  {![ProcessLoad 0]} {
 	    if {$ext} {
-- 
cgit v0.12