--- a/JavaClass.st	Mon Aug 24 21:32:39 2009 +0200
+++ b/JavaClass.st	Mon Aug 24 21:33:19 2009 +0200
@@ -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: /cvs/stx/stx/libjava/JavaClass.st,v 1.125 2005-08-12 16:31:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.126 2009-08-24 19:33:19 cg Exp $'
 ! !
-
-JavaClass initialize!