#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 02 Jul 2019 23:53:17 +0200
changeset 4455 ca939ac8475f
parent 4454 4e682b3abdae
child 4456 698fe54bf9c6
#REFACTORING by cg class: Breakpoint changed: #break
Breakpoint.st
--- a/Breakpoint.st	Sun Jun 30 03:46:34 2019 +0200
+++ b/Breakpoint.st	Tue Jul 02 23:53:17 2019 +0200
@@ -216,14 +216,15 @@
             "/ in:sender.
     ].
     (description shouldTraceIn:sender) ifTrue:[
-        Transcript show:Timestamp now.
         sender method numArgs == 0 ifTrue:[
-            Transcript showCR:(' Trace: %1 [%2]' 
-                        bindWith:sender methodPrintString 
+            Transcript showCR:('%1 Trace: %2 [%3]' 
+                        bindWith:Timestamp now 
+                        with:sender methodPrintString 
                         with:self line)
         ] ifFalse:[    
-            Transcript showCR:(' Trace: %1 [%2] args: %3' 
-                        bindWith:sender methodPrintString 
+            Transcript showCR:('%1 Trace: %2 [%3] args: %4' 
+                        bindWith:Timestamp now 
+                        with:sender methodPrintString 
                         with:self line
                         with:sender argsDisplayStringShort)
         ].
@@ -232,7 +233,7 @@
     "Created: / 15-06-2011 / 12:48:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 11-07-2011 / 18:17:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 21-10-2017 / 15:24:35 / cg"
-    "Modified: / 26-06-2019 / 19:19:24 / Claus Gittinger"
+    "Modified: / 02-07-2019 / 23:49:17 / Claus Gittinger"
 ! !
 
 !Breakpoint methodsFor:'initialization'!