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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 14 Nov 1998 18:45:41 +0100
changeset 729 65df4874f0a6
parent 728 501a0a757440
child 730 635af002b783
checkin from browser
MessageTracer.st file | annotate | diff | comparison | revisions
MsgTracer.st file | annotate | diff | comparison | revisions
WMethod.st file | annotate | diff | comparison | revisions
WrappedMethod.st file | annotate | diff | comparison | revisions 
--- a/MessageTracer.st	Mon Nov 09 21:38:01 1998 +0100
+++ b/MessageTracer.st	Sat Nov 14 18:45:41 1998 +0100
@@ -1392,7 +1392,7 @@
      because allocating the unwindBlock uses memory and some users want to count allocated memory.
     "
 
-    |selector class trapMethod s spec src dict sel save|
+    |selector class trapMethod s spec src dict sel save xselector|
 
     CallingLevel := 0.
 
@@ -1423,7 +1423,11 @@
     "
      get a new method-spec
     "
-    spec := Parser methodSpecificationForSelector:selector.
+    xselector := '_'.
+    aMethod numArgs timesRepeat:[
+        xselector := xselector , '_:'
+    ].
+    spec := Parser methodSpecificationForSelector:xselector.
 
     "
      create a method, executing the trap-blocks and the original method via a direct call
@@ -1556,8 +1560,8 @@
      5 factorial.         
     "
 
-    "Modified: 25.6.1996 / 22:04:51 / stefan"
-    "Modified: 22.3.1997 / 17:00:43 / cg"
+    "Modified: / 25.6.1996 / 22:04:51 / stefan"
+    "Modified: / 13.11.1998 / 23:48:44 / cg"
 ! !
 
 !MessageTracer class methodsFor:'object breakpointing'!
@@ -2747,6 +2751,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.74 1998-07-31 15:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.75 1998-11-14 17:45:22 cg Exp $'
 ! !
 MessageTracer initialize!
--- a/MsgTracer.st	Mon Nov 09 21:38:01 1998 +0100
+++ b/MsgTracer.st	Sat Nov 14 18:45:41 1998 +0100
@@ -1392,7 +1392,7 @@
      because allocating the unwindBlock uses memory and some users want to count allocated memory.
     "
 
-    |selector class trapMethod s spec src dict sel save|
+    |selector class trapMethod s spec src dict sel save xselector|
 
     CallingLevel := 0.
 
@@ -1423,7 +1423,11 @@
     "
      get a new method-spec
     "
-    spec := Parser methodSpecificationForSelector:selector.
+    xselector := '_'.
+    aMethod numArgs timesRepeat:[
+        xselector := xselector , '_:'
+    ].
+    spec := Parser methodSpecificationForSelector:xselector.
 
     "
      create a method, executing the trap-blocks and the original method via a direct call
@@ -1556,8 +1560,8 @@
      5 factorial.         
     "
 
-    "Modified: 25.6.1996 / 22:04:51 / stefan"
-    "Modified: 22.3.1997 / 17:00:43 / cg"
+    "Modified: / 25.6.1996 / 22:04:51 / stefan"
+    "Modified: / 13.11.1998 / 23:48:44 / cg"
 ! !
 
 !MessageTracer class methodsFor:'object breakpointing'!
@@ -2747,6 +2751,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.74 1998-07-31 15:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.75 1998-11-14 17:45:22 cg Exp $'
 ! !
 MessageTracer initialize!
--- a/WMethod.st	Mon Nov 09 21:38:01 1998 +0100
+++ b/WMethod.st	Sat Nov 14 18:45:41 1998 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-Method subclass:#WrappedMethod
+Method variableSubclass:#WrappedMethod
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -175,10 +175,16 @@
      True is returned here, since the receiver is always a wrapped one"
 
     ^ true
+!
+
+signature
+    ^ self originalMethod signature
+
+    "Created: / 14.11.1998 / 00:01:50 / cg"
 ! !
 
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.17 1998-01-23 17:50:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.18 1998-11-14 17:45:41 cg Exp $'
 ! !
--- a/WrappedMethod.st	Mon Nov 09 21:38:01 1998 +0100
+++ b/WrappedMethod.st	Sat Nov 14 18:45:41 1998 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-Method subclass:#WrappedMethod
+Method variableSubclass:#WrappedMethod
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -175,10 +175,16 @@
      True is returned here, since the receiver is always a wrapped one"
 
     ^ true
+!
+
+signature
+    ^ self originalMethod signature
+
+    "Created: / 14.11.1998 / 00:01:50 / cg"
 ! !
 
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.17 1998-01-23 17:50:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.18 1998-11-14 17:45:41 cg Exp $'
 ! !
hg/stx-libbasic3