Define #useSpecialSuper
authorstefan
Fri, 29 Aug 1997 15:59:52 +0000
changeset 249 94833284dec6
parent 248 964ad5f9e8bc
child 250 ea3955e7f791
Define #useSpecialSuper
JavaClass.st
--- a/JavaClass.st	Thu Aug 28 02:34:59 1997 +0000
+++ b/JavaClass.st	Fri Aug 29 15:59:52 1997 +0000
@@ -104,6 +104,7 @@
 
     "Created: 15.4.1996 / 15:52:55 / cg"
     "Modified: 3.8.1997 / 17:01:15 / cg"
+    "Modified: 29.8.1997 / 17:02:56 / stefan"
 !
 
 name:aString
@@ -1016,6 +1017,12 @@
     ^ self == JavaClass
 
     "Created: 30.7.1997 / 14:58:58 / cg"
+!
+
+useSpecialSuper
+    ^ (accessFlags bitAnd:16r0020) ~~ 0
+
+    "Created: 28.8.1997 / 11:13:27 / stefan"
 ! !
 
 !JavaClass methodsFor:'smalltalk interface'!
@@ -1409,6 +1416,6 @@
 !JavaClass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.64 1997/08/22 13:15:19 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.65 1997/08/29 15:59:52 stefan Exp $'
 ! !
 JavaClass initialize!