FileBrowser.st
changeset 1113 289b0356eebb
parent 1112 6808d55dd8d8
child 1118 9fe7905c9768
--- a/FileBrowser.st	Fri Apr 04 12:21:01 1997 +0200
+++ b/FileBrowser.st	Fri Apr 04 13:29:10 1997 +0200
@@ -2220,7 +2220,7 @@
             aBox initialText:'make target' selectFrom:6 to:11.
             ^ self
         ].
-        (lcFilename endsWith:'.tar.z') ifTrue:[
+        (lcFilename endsWith:'tar.z') ifTrue:[
             aBox initialText:'zcat ' , fileName , ' | tar tvf -'.
             ^ self
         ].
@@ -2244,7 +2244,7 @@
             aBox initialText:'uncompress ' , fileName selectFrom:1 to:10.
             ^ self
         ].
-        (fileName endsWith:'.tar.gz') ifTrue:[
+        (fileName endsWith:'tar.gz') ifTrue:[
             aBox initialText:('gunzip <' , fileName , ' | tar tvf -' ).
             ^ self
         ].
@@ -2296,7 +2296,7 @@
         aBox initialText:'<cmd> ' , fileName selectFrom:1 to:5
     ]
 
-    "Modified: 4.4.1997 / 12:20:15 / cg"
+    "Modified: 4.4.1997 / 12:26:40 / cg"
 !
 
 nonBinaryFileAction:aFilename
@@ -2998,5 +2998,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.129 1997-04-04 10:21:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.130 1997-04-04 11:29:10 cg Exp $'
 ! !