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