checkin from browser
authorcg
Mon, 12 Jan 1998 17:30:03 +0000
changeset 256 2cbf20ad74b2
parent 255 2d8b3948a08a
child 257 f0d546da7ac3
checkin from browser
JavaMethod.st
--- a/JavaMethod.st	Mon Jan 12 14:24:47 1998 +0000
+++ b/JavaMethod.st	Mon Jan 12 17:30:03 1998 +0000
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:3.3.1 on 9-jan-1998 at 11:23:07 pm'                  !
-
 CompiledCode subclass:#JavaMethod
 	instanceVariableNames:'accessFlags selector javaClass exceptionHandlerTable
 		exceptionTable returnType signature lineNumberTable
@@ -1132,7 +1130,9 @@
 !
 
 isBreakpointed
-    ^ false
+    ^ (accessFlags bitAnd:A_BREAKPOINT) ~~ 0
+
+    "Modified: / 11.1.1998 / 13:28:43 / cg"
 !
 
 isFinal
@@ -1181,10 +1181,24 @@
     ^ (accessFlags bitAnd:A_SYNCHRONIZED) ~~ 0
 !
 
+isTraced
+    ^ false
+
+    "Modified: / 11.1.1998 / 13:28:43 / cg"
+    "Created: / 11.1.1998 / 13:38:11 / cg"
+!
+
 isUnloaded
     ^ false
 !
 
+isWrapped
+    ^ self isBreakpointed
+
+    "Modified: / 11.1.1998 / 13:28:43 / cg"
+    "Created: / 11.1.1998 / 13:38:04 / cg"
+!
+
 lineNumberForPC:pc
     |last num text classSource|
 
@@ -1570,6 +1584,6 @@
 !JavaMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.54 1998/01/12 14:24:34 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethod.st,v 1.55 1998/01/12 17:30:03 cg Exp $'
 ! !
 JavaMethod initialize!