--- 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 $'
! !