--- 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'!