JavaMethod.st
changeset 323 97a1281ec215
parent 322 567088a5a1b0
child 332 2cb9ceae74d3
--- a/JavaMethod.st	Fri Feb 13 14:57:51 1998 +0000
+++ b/JavaMethod.st	Mon Mar 09 18:39:29 1998 +0000
@@ -1594,6 +1594,22 @@
     "Created: / 14.1.1998 / 23:21:38 / cg"
 !
 
+_instanceof:anObject _:aClassOrInterface
+    "trampouline for unhandled cases ..."
+
+"/    aClassOrInterface isInterface ifTrue:[
+"/        (anObject class hasInterface:aClassOrInterface) ifTrue:[
+"/(aClassOrInterface name includesString:'LightweightPeer') ifTrue:[self halt].
+"/            ^ 1
+"/        ].
+"/    ].
+"/ (aClassOrInterface name includesString:'LightweightPeer') ifTrue:[self halt].
+    ^ 0.
+
+    "Created: / 13.2.1998 / 17:42:38 / cg"
+    "Modified: / 13.2.1998 / 18:03:03 / cg"
+!
+
 _l2d:op1
     ^ op1 asFloat
 
@@ -1877,6 +1893,6 @@
 !JavaMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.64 1998/02/13 14:57:51 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.65 1998/03/09 18:39:29 cg Exp $'
 ! !
 JavaMethod initialize!