FileBrowserV2.st
changeset 15191 9ba4d765c596
parent 15182 600cacea9fd6
child 15261 714ce835c4d9
--- a/FileBrowserV2.st	Wed Feb 04 19:09:28 2015 +0100
+++ b/FileBrowserV2.st	Wed Feb 04 19:10:10 2015 +0100
@@ -1826,7 +1826,7 @@
             f := self currentFileNameHolder value.
             f size == 1
             and:[ f := f first. ((Java classPath ? #()) includes:f pathName) not
-            and:[f isDirectory
+            and:[ f isDirectory
                  or:[(f hasSuffix:'jar')
                  or:[(f hasSuffix:'zip')]]]]
           ]
@@ -1853,18 +1853,18 @@
 
 canRemoveFromClassPath
     ^ [
-	|f|
+        |f|
 
-	(Java isNil or:[Java isLoaded not]) ifTrue:[
-	    false
-	] ifFalse:[
-	    f := self currentFileNameHolder value.
-	    f size == 1
-	    and:[f:= f first. (Java classPath includes:f pathName)
-	    and:[f isDirectory
-		 or:[(f hasSuffix:'jar')
-		 or:[(f hasSuffix:'zip')]]]]
-	  ]
+        (Java isNil or:[Java isLoaded not]) ifTrue:[
+            false
+        ] ifFalse:[
+            f := self currentFileNameHolder value.
+            f size == 1
+            and:[ f:= f first. ((Java classPath ? #())includes:f pathName) not
+            and:[ f isDirectory
+                 or:[(f hasSuffix:'jar')
+                 or:[(f hasSuffix:'zip')]]]]
+          ]
       ]
 !
 
@@ -2589,11 +2589,11 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.229 2015-02-04 12:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.230 2015-02-04 18:10:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.229 2015-02-04 12:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.230 2015-02-04 18:10:10 cg Exp $'
 ! !