Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
moved isBreakPointed / isTrapped queries into method
authorClaus Gittinger <cg@exept.de>
Mon, 07 Apr 1997 19:30:03 +0200
changeset 576 9519831877b1
parent 575 27439f18cb04
child 577 9cdee8b4b6b8
moved isBreakPointed / isTrapped queries into method (for javaMethod compatibility)
WMethod.st file | annotate | diff | comparison | revisions
WrappedMethod.st file | annotate | diff | comparison | revisions 
--- a/WMethod.st	Fri Apr 04 10:51:11 1997 +0200
+++ b/WMethod.st	Mon Apr 07 19:30:03 1997 +0200
@@ -108,6 +108,24 @@
 
 !WrappedMethod methodsFor:'queries'!
 
+isBreakpointed
+    "return true, if the receiver is a wrapped method for a breakpoint.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTrapped:self)
+
+    "Created: 7.4.1997 / 17:25:40 / cg"
+!
+
+isTraced
+    "return true, if the receiver is a wrapped method for a trace point.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTrapped:self) not
+
+    "Created: 7.4.1997 / 17:25:54 / cg"
+!
+
 isWrapped
     "return true, if the receiver is a wrapped method.
      True is returned here, since the receiver is always a wrapped one"
@@ -118,5 +136,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.14 1997-02-11 19:58:21 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.15 1997-04-07 17:30:03 cg Exp $'
 ! !
--- a/WrappedMethod.st	Fri Apr 04 10:51:11 1997 +0200
+++ b/WrappedMethod.st	Mon Apr 07 19:30:03 1997 +0200
@@ -108,6 +108,24 @@
 
 !WrappedMethod methodsFor:'queries'!
 
+isBreakpointed
+    "return true, if the receiver is a wrapped method for a breakpoint.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTrapped:self)
+
+    "Created: 7.4.1997 / 17:25:40 / cg"
+!
+
+isTraced
+    "return true, if the receiver is a wrapped method for a trace point.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTrapped:self) not
+
+    "Created: 7.4.1997 / 17:25:54 / cg"
+!
+
 isWrapped
     "return true, if the receiver is a wrapped method.
      True is returned here, since the receiver is always a wrapped one"
@@ -118,5 +136,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.14 1997-02-11 19:58:21 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.15 1997-04-07 17:30:03 cg Exp $'
 ! !
hg/stx-libbasic3