JavaClassPointerRef.st
changeset 168 90e39cb3fa04
parent 135 098936234135
child 222 f43573e3358c
--- a/JavaClassPointerRef.st	Wed Mar 26 17:25:36 1997 +0000
+++ b/JavaClassPointerRef.st	Mon Apr 07 17:28:23 1997 +0000
@@ -8,6 +8,16 @@
 
 !JavaClassPointerRef methodsFor:'accessing'!
 
+arrayClass
+    class isJavaClass ifTrue:[
+        ^ Array
+    ].
+    ^ class
+
+    "Created: 7.4.1997 / 13:46:12 / cg"
+    "Modified: 7.4.1997 / 13:47:17 / cg"
+!
+
 javaClass
     class isUnresolved ifTrue:[
         self halt.
@@ -17,8 +27,16 @@
     "Created: 25.6.1996 / 09:36:09 / cg"
 ! !
 
+!JavaClassPointerRef methodsFor:'converting'!
+
+asClassPointerRef
+     ^ self
+
+    "Created: 7.4.1997 / 13:40:42 / cg"
+! !
+
 !JavaClassPointerRef class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClassPointerRef.st,v 1.3 1997/02/07 20:36:13 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClassPointerRef.st,v 1.4 1997/04/07 17:26:38 cg Exp $'
 ! !