--- a/FileBrowser.st	Fri Aug 01 21:51:36 1997 +0200
+++ b/FileBrowser.st	Tue Aug 05 16:13:13 1997 +0200
@@ -696,7 +696,6 @@
                  nil
                  DoIt
                  nil
-                 nil
                  Delete
                  nil
                  nil
@@ -756,7 +755,7 @@
     ^m
 
     "Modified: 28.1.1997 / 15:04:42 / stefan"
-    "Modified: 3.7.1997 / 13:54:30 / cg"
+    "Modified: 2.8.1997 / 14:34:13 / cg"
 !
 
 filePrint
@@ -1433,6 +1432,16 @@
     "Created: 1.8.1997 / 21:25:22 / cg"
 !
 
+addDirToJavaSourcePath
+    "add the current path to javas sourcePath
+     (only available with ST/J System"
+
+    Java addToSourcePath:currentDirectory pathName
+
+    "Modified: 14.12.1996 / 15:37:47 / cg"
+    "Created: 2.8.1997 / 14:11:19 / cg"
+!
+
 changeCurrentDirectory
     "if text was modified show a queryBox, 
      otherwise change immediately to directory"
@@ -1503,8 +1512,8 @@
                   ).
 
     JavaClassReader notNil ifTrue:[
-        labels := labels , #('-' 'add to JavaClassPath' 'remove from JavaClassPath').
-        selectors := selectors , #(nil #addDirToJavaClassPath #removeDirFromJavaClassPath).
+        labels := labels , #('-' 'add to JavaClassPath' 'add to JavaSourcePath' 'remove from JavaClassPath' 'remove from JavaSourcePath').
+        selectors := selectors , #(nil #addDirToJavaClassPath #addDirToJavaSourcePath #removeDirFromJavaClassPath #removeDirFromJavaSourcePath).
     ].
 
     args := Array new:(labels size).
@@ -1532,7 +1541,7 @@
     ].
     ^menu.
 
-    "Modified: 1.8.1997 / 21:24:08 / cg"
+    "Modified: 2.8.1997 / 14:10:54 / cg"
 !
 
 queryForDirectoryToChange
@@ -1561,6 +1570,16 @@
 
     "Modified: 14.12.1996 / 15:37:47 / cg"
     "Created: 1.8.1997 / 21:25:36 / cg"
+!
+
+removeDirFromJavaSourcePath
+    "remove the current path from javas sourcePath
+     (only available with ST/J System"
+
+    Java removeFromSourcePath:currentDirectory pathName
+
+    "Modified: 14.12.1996 / 15:37:47 / cg"
+    "Created: 2.8.1997 / 14:11:41 / cg"
 ! !
 
 !FileBrowser methodsFor:'private'!
@@ -1940,10 +1959,6 @@
             aBox initialText:'make target' selectFrom:6 to:11.
             ^ self
         ].
-        (lcFilename endsWith:'tar.z') ifTrue:[
-            cmd := 'zcat %1 | tar tvf -'.
-            select := false.
-        ].
         (fileName endsWith:'.taz') ifTrue:[
             aBox initialText:'zcat %1 | tar tvf -'.
             select := false.
@@ -1963,6 +1978,13 @@
         (lcFilename endsWith:'.z') ifTrue:[
             cmd := 'uncompress %1'
         ].
+        (lcFilename endsWith:'tar.z') ifTrue:[
+            cmd := 'zcat %1 | tar tvf -'.
+            select := false.
+        ].
+        (fileName endsWith:'.gz') ifTrue:[
+            cmd := 'gunzip %1'.
+        ].
         (fileName endsWith:'tar.gz') ifTrue:[
             cmd := ('gunzip < %1 | tar tvf -' ).
             select := false.
@@ -1971,9 +1993,6 @@
             cmd := ('gunzip < %1 | tar tvf -' ).
             select := false.
         ].
-        (fileName endsWith:'.gz') ifTrue:[
-            cmd := 'gunzip %1'.
-        ].
         (lcFilename endsWith:'.html') ifTrue:[
             cmd := 'netscape %1'
         ].
@@ -2029,7 +2048,7 @@
         ]
     ]
 
-    "Modified: 4.4.1997 / 12:26:40 / cg"
+    "Modified: 3.8.1997 / 16:55:26 / cg"
 !
 
 nonBinaryFileAction:aFilename
@@ -2766,6 +2785,9 @@
        'read.me'
        'Read.me'
        'READ.ME'
+       'README.TXT'
+       'readme.txt'
+       'Readme.txt'
     ) do:[:f |
         (currentDirectory isReadable:f) ifTrue:[
             (currentDirectory isDirectory:f) ifFalse:[^ f].
@@ -2773,7 +2795,7 @@
     ].
     ^ nil
 
-    "Modified: 23.4.1997 / 13:12:36 / cg"
+    "Modified: 3.8.1997 / 16:50:33 / cg"
 !
 
 getModeString:modeBits
@@ -3625,5 +3647,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.180 1997-08-01 19:51:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.181 1997-08-05 14:13:13 cg Exp $'
 ! !