*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 04 Sep 1999 20:20:55 +0200
changeset 4682 4158042a9c8c
parent 4681 7bac1e0ba551
child 4683 58f7ae8b2e44
*** empty log message ***
Behavior.st
Boolean.st
CharArray.st
Character.st
CharacterArray.st
Float.st
Integer.st
Number.st
Object.st
String.st
Symbol.st
UndefObj.st
UndefinedObject.st
--- a/Behavior.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Behavior.st	Sat Sep 04 20:20:55 1999 +0200
@@ -4019,10 +4019,10 @@
 
 !Behavior methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceBehavior:self level:level
+    ^ aRequestor traceBehavior:self level:level from:referrer
 
 
 ! !
@@ -4030,5 +4030,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.152 1999-09-01 19:57:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.153 1999-09-04 18:20:55 cg Exp $'
 ! !
--- a/Boolean.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Boolean.st	Sat Sep 04 20:20:55 1999 +0200
@@ -186,10 +186,10 @@
 
 !Boolean methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceBoolean:self level:level
+    ^ aRequestor traceBoolean:self level:level from:referrer
 
 
 ! !
@@ -197,5 +197,5 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.23 1999-09-01 19:56:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.24 1999-09-04 18:20:45 cg Exp $'
 ! !
--- a/CharArray.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/CharArray.st	Sat Sep 04 20:20:55 1999 +0200
@@ -5380,10 +5380,10 @@
 
 !CharacterArray methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceCharacterArray:self level:level
+    ^ aRequestor traceCharacterArray:self level:level from:referrer
 
 
 ! !
@@ -5391,6 +5391,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.166 1999-09-01 20:04:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.167 1999-09-04 18:20:23 cg Exp $'
 ! !
 CharacterArray initialize!
--- a/Character.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Character.st	Sat Sep 04 20:20:55 1999 +0200
@@ -1079,15 +1079,15 @@
 
 !Character methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceCharacter:self level:level
+    ^ aRequestor traceCharacter:self level:level from:referrer
 
 ! !
 
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.54 1999-09-01 19:55:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.55 1999-09-04 18:20:32 cg Exp $'
 ! !
--- a/CharacterArray.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/CharacterArray.st	Sat Sep 04 20:20:55 1999 +0200
@@ -5380,10 +5380,10 @@
 
 !CharacterArray methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceCharacterArray:self level:level
+    ^ aRequestor traceCharacterArray:self level:level from:referrer
 
 
 ! !
@@ -5391,6 +5391,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.166 1999-09-01 20:04:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.167 1999-09-04 18:20:23 cg Exp $'
 ! !
 CharacterArray initialize!
--- a/Float.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Float.st	Sat Sep 04 20:20:55 1999 +0200
@@ -1753,10 +1753,10 @@
 
 !Float methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceFloat:self level:level
+    ^ aRequestor traceFloat:self level:level from:referrer
 
 
 ! !
@@ -2026,6 +2026,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.102 1999-09-01 19:54:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.103 1999-09-04 18:19:56 cg Exp $'
 ! !
 Float initialize!
--- a/Integer.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Integer.st	Sat Sep 04 20:20:55 1999 +0200
@@ -2073,10 +2073,10 @@
 
 !Integer methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceInteger:self level:level
+    ^ aRequestor traceInteger:self level:level from:referrer
 
 
 ! !
@@ -2273,5 +2273,5 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.108 1999-09-01 19:51:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.109 1999-09-04 18:19:48 cg Exp $'
 ! !
--- a/Number.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Number.st	Sat Sep 04 20:20:55 1999 +0200
@@ -590,10 +590,10 @@
 
 !Number methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceNumber:self level:level
+    ^ aRequestor traceNumber:self level:level from:referrer
 
 
 ! !
@@ -633,5 +633,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.52 1999-09-01 20:01:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.53 1999-09-04 18:19:25 cg Exp $'
 ! !
--- a/Object.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Object.st	Sat Sep 04 20:20:55 1999 +0200
@@ -7170,10 +7170,10 @@
 
 !Object methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceObject:self level:level
+    ^ aRequestor traceObject:self level:level from:referrer
 
     "Created: / 2.9.1999 / 09:05:17 / stefan"
 ! !
@@ -7472,6 +7472,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.286 1999-09-02 15:20:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.287 1999-09-04 18:19:16 cg Exp $'
 ! !
 Object initialize!
--- a/String.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/String.st	Sat Sep 04 20:20:55 1999 +0200
@@ -3021,10 +3021,10 @@
 
 !String methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceString:self level:level
+    ^ aRequestor traceString:self level:level from:referrer
 
 
 ! !
@@ -3032,5 +3032,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.143 1999-09-01 20:01:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.144 1999-09-04 18:18:35 cg Exp $'
 ! !
--- a/Symbol.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Symbol.st	Sat Sep 04 20:20:55 1999 +0200
@@ -655,10 +655,10 @@
 
 !Symbol methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceSymbol:self level:level
+    ^ aRequestor traceSymbol:self level:level from:referrer
 
 
 ! !
@@ -666,5 +666,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.57 1999-09-01 19:52:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.58 1999-09-04 18:18:17 cg Exp $'
 ! !
--- a/UndefObj.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/UndefObj.st	Sat Sep 04 20:20:55 1999 +0200
@@ -571,10 +571,10 @@
 
 !UndefinedObject methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceUndefinedObject:self level:level
+    ^ aRequestor traceUndefinedObject:self level:level from:referrer
 
 
 ! !
@@ -582,6 +582,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.43 1999-09-01 19:52:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.44 1999-09-04 18:17:40 cg Exp $'
 ! !
 UndefinedObject initialize!
--- a/UndefinedObject.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/UndefinedObject.st	Sat Sep 04 20:20:55 1999 +0200
@@ -571,10 +571,10 @@
 
 !UndefinedObject methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceUndefinedObject:self level:level
+    ^ aRequestor traceUndefinedObject:self level:level from:referrer
 
 
 ! !
@@ -582,6 +582,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.43 1999-09-01 19:52:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.44 1999-09-04 18:17:40 cg Exp $'
 ! !
 UndefinedObject initialize!