--- 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>"
! !