Mercurial Mercurial > hg > stx-libbasic3 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MessageTracer.st
changeset 4265 5f818d0c0aa7
parent 4261 ef817a93c802
child 4296 b9632c3b76c2 
--- a/MessageTracer.st	Tue Nov 21 13:14:55 2017 +0100
+++ b/MessageTracer.st	Tue Nov 21 13:15:13 2017 +0100
@@ -341,7 +341,7 @@
     "arrange for the two blocks entryBlock and exitBlock to be evaluated whenever
      aSelector is sent to instances of orgClass or subclasses.
      EntryBlock will be called on entry, and get the current context passed as argument.
-     ExitBlock will be called, when the method is left, and get context and the methods return value as arguments.
+     ExitBlock will be called, when the method is left, and get context and the method's return value as arguments.
     "
 
     |myMetaclass trapMethod s spec implClass newClass dict|
@@ -499,6 +499,7 @@
 
     "Modified: / 25-06-1996 / 22:01:05 / stefan"
     "Modified: / 01-07-2011 / 10:01:59 / cg"
+    "Modified (comment): / 21-11-2017 / 13:03:22 / cg"
 ! !
 
 !MessageTracer class methodsFor:'cleanup'!
@@ -2145,7 +2146,7 @@
      aMethod is evaluated.
      EntryBlock will be called on entry, and gets the current context passed as argument.
      ExitBlock will be called, when the method is left, and gets the context and
-     the methods return value as arguments.
+     the method's return value as arguments.
      UnwindBlock will be called when the contxt of aMethod is unwound.
      If there is an unwindBlock, the entry and exitBlocks will be called within the unwind block,
      because allocating the unwindBlock uses memory and some users want to count allocated memory.
@@ -2334,6 +2335,7 @@
 
     "Modified: / 25-06-1996 / 22:04:51 / stefan"
     "Modified: / 01-07-2011 / 10:01:48 / cg"
+    "Modified (comment): / 21-11-2017 / 13:03:29 / cg"
 !
 
 wrapMethod:aMethod onEntryCode:entryCode onExitCode:exitCode
@@ -3195,7 +3197,7 @@
     "arrange for the two blocks entryBlock and exitBlock to be evaluated whenever
      a message with aSelector is sent to anObject. EntryBlock will be called on
      entry, and get the current context passed as argument. ExitBlock will be called,
-     when the method is left, and get the context and the methods return value as arguments.
+     when the method is left, and get the context and the method's return value as arguments.
      The current implementation does not allow integers or nil to be wrapped."
 
     "I have not yet enough experience, if the wrapped original method should
@@ -3206,21 +3208,22 @@
      Time will show, you can experiment by setting the withOriginalClass: flag to false
     "
     ^ self
-	wrap:anObject
-	selector:aSelector
-	onEntry:entryBlock
-	onExit:exitBlock
-	withOriginalClass:true
-	flushCaches:true
-
-    "Modified: / 21.4.1998 / 15:29:50 / cg"
+        wrap:anObject
+        selector:aSelector
+        onEntry:entryBlock
+        onExit:exitBlock
+        withOriginalClass:true
+        flushCaches:true
+
+    "Modified: / 21-04-1998 / 15:29:50 / cg"
+    "Modified (comment): / 21-11-2017 / 13:03:04 / cg"
 !
 
 wrap:anObject selector:aSelector onEntry:entryBlock onExit:exitBlock additionalEntryCode:additionalEntryCode additionalExitCode:additionalExitCode  additionalVariables:additionalVariables withOriginalClass:withOriginalClass flushCaches:flushCaches
     "arrange for the two blocks entryBlock and exitBlock to be evaluated whenever
      a message with aSelector is sent to anObject. EntryBlock will be called on
      entry, and get the current context passed as argument. ExitBlock will be called,
-     when the method is left, and get the current context and the methods return value as argument.
+     when the method is left, and get the current context and the method's return value as argument.
      If withOriginalClass is true, the class of anObject will be set to its original class
      before the wrapped method will be called.
      NOTICE: The current implementation does not allow integers or nil to be wrapped."
@@ -3416,21 +3419,24 @@
     "Modified: / 25-06-1996 / 22:11:21 / stefan"
     "Created: / 21-04-1998 / 15:30:27 / cg"
     "Modified: / 29-07-2014 / 11:58:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 21-11-2017 / 13:03:09 / cg"
 !
 
 wrap:anObject selector:aSelector onEntry:entryBlock onExit:exitBlock withOriginalClass:withOriginalClass flushCaches:flushCaches
     "arrange for the two blocks entryBlock and exitBlock to be evaluated whenever
      a message with aSelector is sent to anObject. EntryBlock will be called on
      entry, and get the current context passed as argument. ExitBlock will be called,
-     when the method is left, and get the current context and the methods return value as argument.
+     when the method is left, and get the current context and the method's return value as argument.
      If withOriginalClass is true, the class of anObject will be set to its original class
      before the wrapped method will be called.
      NOTICE: The current implementation does not allow integers or nil to be wrapped."
 
     ^ self
-	wrap:anObject selector:aSelector onEntry:entryBlock onExit:exitBlock
-	additionalEntryCode:nil additionalExitCode:nil  additionalVariables:nil
-	withOriginalClass:withOriginalClass flushCaches:flushCaches
+        wrap:anObject selector:aSelector onEntry:entryBlock onExit:exitBlock
+        additionalEntryCode:nil additionalExitCode:nil  additionalVariables:nil
+        withOriginalClass:withOriginalClass flushCaches:flushCaches
+
+    "Modified (comment): / 21-11-2017 / 13:03:16 / cg"
 !
 
 wrap:anObject selectors:aCollection onEntry:entryBlock onExit:exitBlock
hg/stx-libbasic3