add support for compressed regions files

1 files changed, 2 insertions, 16 deletions

diff --git a/ds9/library/load.tcl b/ds9/library/load.tcl
index 714f962..ef9a085 100644
--- a/ds9/library/load.tcl
+++ b/ds9/library/load.tcl
@@ -285,7 +285,7 @@ proc IsLocalFile {fn} {
 }
 
 proc ConvertFitsFile {} {
-    foreach t {Stdin ExternalFits GzipFile BZip2File CompressFile PackFile} {
+    foreach t {Stdin ExternalFits GzipFile BZip2File CompressFile} {
 	if {[$t]} {
 	    return
 	}
@@ -293,7 +293,7 @@ proc ConvertFitsFile {} {
 }
 
 proc ConvertArrayFile {} {
-    foreach t {Stdin GzipFile BZip2File CompressFile PackFile} {
+    foreach t {Stdin GzipFile BZip2File CompressFile} {
 	if {[$t]} {
 	    return
 	}
@@ -349,20 +349,6 @@ proc CompressFile {} {
     return 0
 }
 
-proc PackFile {} {
-    global loadParam
-
-    if {[regexp {(.*)\.z($|\[)} $loadParam(file,name) matched root]} {
-	if {[catch {set ch [open "| pcat $root.z " r]}]} {
-	    return 0
-	}
-	set loadParam(load,type) channel
-	set loadParam(channel,name) $ch
-	return 1
-    }
-    return 0
-}
-
 proc GzipFile {} {
     global loadParam