Mercurial Mercurial > hg > stx-libbasic / 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:29:49 +0200
changeset 2532 e555281237f1
parent 2531 1e22ac3610a4
child 2533 ef63067451fa
moved isBreakPointed / isTrapped queries into method (for javaMethod compatibility)
ExecFunc.st file | annotate | diff | comparison | revisions
ExecutableFunction.st file | annotate | diff | comparison | revisions 
--- a/ExecFunc.st	Mon Apr 07 18:21:27 1997 +0200
+++ b/ExecFunc.st	Mon Apr 07 19:29:49 1997 +0200
@@ -218,6 +218,15 @@
     "Created: 16.4.1996 / 16:31:15 / cg"
 !
 
+isBreakpointed
+    "return true, if this is a wrapper method for a breakpoint.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 7.4.1997 / 17:24:40 / cg"
+!
+
 isExecutable
     "return true, if this codeObject is executable."
 
@@ -247,6 +256,15 @@
     "Modified: 16.4.1996 / 16:32:36 / cg"
 !
 
+isTraced
+    "return true, if this is a wrapper method for a trace point.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 7.4.1997 / 17:24:50 / cg"
+!
+
 isUnloaded
     "return true, if the objects machine code has been unloaded
      from the system (i.e. it is not executable)."
@@ -303,6 +321,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.29 1997-01-23 12:48:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.30 1997-04-07 17:29:49 cg Exp $'
 ! !
 ExecutableFunction initialize!
--- a/ExecutableFunction.st	Mon Apr 07 18:21:27 1997 +0200
+++ b/ExecutableFunction.st	Mon Apr 07 19:29:49 1997 +0200
@@ -218,6 +218,15 @@
     "Created: 16.4.1996 / 16:31:15 / cg"
 !
 
+isBreakpointed
+    "return true, if this is a wrapper method for a breakpoint.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 7.4.1997 / 17:24:40 / cg"
+!
+
 isExecutable
     "return true, if this codeObject is executable."
 
@@ -247,6 +256,15 @@
     "Modified: 16.4.1996 / 16:32:36 / cg"
 !
 
+isTraced
+    "return true, if this is a wrapper method for a trace point.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 7.4.1997 / 17:24:50 / cg"
+!
+
 isUnloaded
     "return true, if the objects machine code has been unloaded
      from the system (i.e. it is not executable)."
@@ -303,6 +321,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.29 1997-01-23 12:48:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.30 1997-04-07 17:29:49 cg Exp $'
 ! !
 ExecutableFunction initialize!
hg/stx-libbasic