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.
nicer printOut in tracing
authorClaus Gittinger <cg@exept.de>
Fri, 24 Apr 1998 21:00:17 +0200
changeset 666 bd187c08d386
parent 665 7b88dbadd6c7
child 667 62df9b9b7664
nicer printOut in tracing
MessageTracer.st file | annotate | diff | comparison | revisions
MsgTracer.st file | annotate | diff | comparison | revisions 
--- a/MessageTracer.st	Fri Apr 24 20:47:27 1998 +0200
+++ b/MessageTracer.st	Fri Apr 24 21:00:17 1998 +0200
@@ -2410,12 +2410,21 @@
         bold;
         nextPutAll:aContext selector;
         normal;
-        nextPutAll:' rcvr='.
+        nextPutAll:' rec=['.
 
     aContext receiver printOn:aStream.
-    aStream nextPutAll:' args='. 
-    (aContext args) printOn:aStream.
-    aStream nextPutAll:' from:'. 
+    aStream nextPutAll:'] '. 
+    (aContext args) keysAndValuesDo:[:idx :arg |
+        |s|
+
+        s := arg printString.
+        s > 20 ifTrue:[
+            s := arg classNameWithArticle
+        ].
+        aStream nextPutAll:'arg'. idx printOn:aStream. aStream nextPutAll:'=['.
+        s printOn:aStream.
+        aStream nextPutAll:'] '.
+    ].
 
     sender := aContext sender.
     sender notNil ifTrue:[
@@ -2423,8 +2432,10 @@
             sender := sender sender.
         ].
     ].
+
+    aStream nextPutAll:'from:'. 
     sender printOn:aStream.
-    aStream cr. aStream flush.
+    aStream cr; flush.
 
     "Modified: 5.3.1997 / 12:40:55 / cg"
 !
@@ -2457,7 +2468,7 @@
         ].
     ].
     sender printOn:aStream.
-    aStream cr.
+    aStream cr; flush.
 
     "Modified: 5.3.1997 / 12:40:42 / cg"
 !
@@ -2487,12 +2498,12 @@
         bold;
         nextPutAll:aContext selector; 
         normal;
-        nextPutAll:' rcvr='. 
+        nextPutAll:' rec=['. 
 
     aContext receiver printOn:aStream.
-    aStream nextPutAll:' return:'.
+    aStream nextPutAll:'] return: ['.
     retVal printOn:aStream.
-    aStream cr.
+    aStream nextPutAll:']'; cr; flush.
 !
 
 printExit:aContext with:retVal on:aStream
@@ -2578,6 +2589,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.63 1998-04-24 18:47:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.64 1998-04-24 19:00:17 cg Exp $'
 ! !
 MessageTracer initialize!
--- a/MsgTracer.st	Fri Apr 24 20:47:27 1998 +0200
+++ b/MsgTracer.st	Fri Apr 24 21:00:17 1998 +0200
@@ -2410,12 +2410,21 @@
         bold;
         nextPutAll:aContext selector;
         normal;
-        nextPutAll:' rcvr='.
+        nextPutAll:' rec=['.
 
     aContext receiver printOn:aStream.
-    aStream nextPutAll:' args='. 
-    (aContext args) printOn:aStream.
-    aStream nextPutAll:' from:'. 
+    aStream nextPutAll:'] '. 
+    (aContext args) keysAndValuesDo:[:idx :arg |
+        |s|
+
+        s := arg printString.
+        s > 20 ifTrue:[
+            s := arg classNameWithArticle
+        ].
+        aStream nextPutAll:'arg'. idx printOn:aStream. aStream nextPutAll:'=['.
+        s printOn:aStream.
+        aStream nextPutAll:'] '.
+    ].
 
     sender := aContext sender.
     sender notNil ifTrue:[
@@ -2423,8 +2432,10 @@
             sender := sender sender.
         ].
     ].
+
+    aStream nextPutAll:'from:'. 
     sender printOn:aStream.
-    aStream cr. aStream flush.
+    aStream cr; flush.
 
     "Modified: 5.3.1997 / 12:40:55 / cg"
 !
@@ -2457,7 +2468,7 @@
         ].
     ].
     sender printOn:aStream.
-    aStream cr.
+    aStream cr; flush.
 
     "Modified: 5.3.1997 / 12:40:42 / cg"
 !
@@ -2487,12 +2498,12 @@
         bold;
         nextPutAll:aContext selector; 
         normal;
-        nextPutAll:' rcvr='. 
+        nextPutAll:' rec=['. 
 
     aContext receiver printOn:aStream.
-    aStream nextPutAll:' return:'.
+    aStream nextPutAll:'] return: ['.
     retVal printOn:aStream.
-    aStream cr.
+    aStream nextPutAll:']'; cr; flush.
 !
 
 printExit:aContext with:retVal on:aStream
@@ -2578,6 +2589,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.63 1998-04-24 18:47:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.64 1998-04-24 19:00:17 cg Exp $'
 ! !
 MessageTracer initialize!
hg/stx-libbasic3