--- a/JavaLibraries.st Wed Jul 06 21:23:26 2016 +0100
+++ b/JavaLibraries.st Mon Jul 25 21:26:25 2016 +0100
@@ -20,6 +20,8 @@
"
"{ Package: 'stx:libjava' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#JavaLibraries
instanceVariableNames:''
classVariableNames:'AntRun'
@@ -89,54 +91,6 @@
!JavaLibraries class methodsFor:'utilities'!
-addToClassPath
- | dir |
-
- (dir := self directory / 'libs') exists ifFalse: [ self update ].
- dir recursiveDirectoryContentsAsFilenames do: [ :file |
- file suffix = 'jar' ifTrue: [ Java addToClassPath: file pathName ]
- ].
-
- (dir := self directory / 'libs-src') exists ifTrue:[
- dir recursiveDirectoryContentsAsFilenames do: [ :file |
- file suffix = 'jar' ifTrue: [ Java addToSourcePath: file pathName ]
- ]
- ].
-
-
-
-
- "
- JavaLibraries addToClassPath.
- Java classPath"
-
- "Created: / 02-09-2011 / 09:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 03-11-2011 / 12:51:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified: / 16-01-2013 / 13:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-addToClassPath: jarname
-
- | dir jar |
-
- (dir := self directory) exists
- ifFalse:[self update].
-
- (jar := dir / jarname) exists ifTrue: [
- Java addToClassPath: jar pathName
- ] ifFalse:[
- self error:'Library ' , jarname , ' not found in ', dir pathName
- ].
-
- "
- JavaLibraries addToClassPath:'junit4.jar'.
- Java classPath
- "
-
- "Created: / 08-04-2011 / 16:49:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 16-01-2013 / 13:09:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
flush
self directory recursiveRemove