src/JavaArray.st
branchjk_new_structure
changeset 1033 a31de6a4cfa4
parent 960 1c7fd32d1f26
child 1035 712d2090e68b
--- a/src/JavaArray.st	Thu Oct 20 17:10:04 2011 +0000
+++ b/src/JavaArray.st	Thu Oct 20 18:20:15 2011 +0000
@@ -167,9 +167,8 @@
     "Created: / 11-06-2011 / 23:35:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-javaArrayClassFor: aJavaClass
-
-    | meta cls |
+javaArrayClassFor: aJavaClass 
+    | meta  cls |
 
     meta := Metaclass new.
     meta setSuperclass: JavaArray class.
@@ -180,16 +179,13 @@
     cls instSize: JavaArray instSize.
     cls setComponentClass: aJavaClass.
     cls setName: (aJavaClass name , '[]') asSymbol.
-    "Kludge, spec says"
-    "All methods of class Object may be invoked on an array."
-    cls setMethodDictionary: (Java classForName: 'java.lang.Object') methodDictionary.
-
-    ^cls
+     "Kludge, spec says" "All methods of class Object may be invoked on an array."
+    cls setMethodDictionary: (JavaVM classForName: 'java.lang.Object') 
+                methodDictionary.
+    ^ cls
 
     "
-        JavaArray javaArrayClassFor: Object
-    "
-
+        JavaArray javaArrayClassFor: Object"
     "Created: / 17-12-2010 / 13:45:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 01-03-2011 / 14:55:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !