--- a/JavaClass.st Sun Aug 23 09:25:26 2009 +0000
+++ b/JavaClass.st Mon Aug 24 19:33:19 2009 +0000
@@ -9,12 +9,11 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libjava' }"
JavaBehavior subclass:#JavaClass
- instanceVariableNames:'classLoader fullName
- sourceFile binaryFilePath fields initValues staticFields'
+ instanceVariableNames:'classLoader fullName sourceFile binaryFilePath fields initValues
+ staticFields'
classVariableNames:'ArgumentConversionErrorSignal OrderOfClassInits'
poolDictionaries:''
category:'Languages-Java-Classes'
@@ -63,7 +62,7 @@
"/ check for a JAVA nameSpace to exist
JAVA isNil ifTrue:[
- NameSpace name:'JAVA'
+ NameSpace name:'JAVA'
].
"create the metaclass first"
@@ -85,7 +84,7 @@
cls setAccessFlags:0.
"/ cls setClassVariableString:''.
cls setInstanceVariableString:''.
- cls category:#java.
+ cls setCategory:#java.
cls setFullName:aString.
"/ java classes do not really have a category;
@@ -94,14 +93,14 @@
nameComponents := aString asCollectionOfSubstringsSeparatedBy:$/.
nameComponents size > 1 ifTrue:[
- cls category:((nameComponents asStringWith:$/ from:1 to:(nameComponents size - 1))
- replaceAll:$/ with:$. ).
+ cls category:((nameComponents asStringWith:$/ from:1 to:(nameComponents size - 1))
+ replaceAll:$/ with:$. ).
].
nameComponents size > 1 ifTrue:[
- cls setPackage:((nameComponents copyWithoutLast:1) asStringWith:$/) asSymbol
+ cls setPackage:((nameComponents copyWithoutLast:1) asStringWith:$/) asSymbol
] ifFalse:[
- cls setPackage:aString asSymbol
+ cls setPackage:aString asSymbol
].
"/ break up the package and create nameSpaces
@@ -112,20 +111,20 @@
ns := JAVA.
nameComponents size > 1 ifTrue:[
- s := '' writeStream.
- s nextPutAll:'JAVA'.
- nameComponents from:1 to:(nameComponents size - 1) do:[:aPart |
- s nextPutAll:'::'.
- s nextPutAll:aPart
- ].
- Metaclass confirmationQuerySignal answer:false do:[
- Class updateChangeFileQuerySignal answer:false do:[
- ns := NameSpace fullName:(s contents).
- ]
- ]
+ s := '' writeStream.
+ s nextPutAll:'JAVA'.
+ nameComponents from:1 to:(nameComponents size - 1) do:[:aPart |
+ s nextPutAll:'::'.
+ s nextPutAll:aPart
+ ].
+ Metaclass confirmationQuerySignal answer:false do:[
+ Class updateChangeFileQuerySignal answer:false do:[
+ ns := NameSpace fullName:(s contents).
+ ]
+ ]
].
ns isNameSpace ifTrue:[
- ns at:nameComponents last asSymbol put:cls.
+ ns at:nameComponents last asSymbol put:cls.
].
"/ for ST/X browsing
@@ -1710,7 +1709,5 @@
!JavaClass class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.125 2005/08/12 16:31:06 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.126 2009/08/24 19:33:19 cg Exp $'
! !
-
-JavaClass initialize!