--- a/MessageTracer.st Wed Apr 24 19:37:49 2013 +0100
+++ b/MessageTracer.st Wed Apr 24 19:54:58 2013 +0100
@@ -880,15 +880,24 @@
table := method breakpointTable.
table isNil ifTrue:[
- table := Array with: (breakpoint line) with: breakpoint.
+ "/old way:
+ "/table := Array with: (breakpoint line) with: breakpoint.
+
+ "/new way:
+ table := Array with: breakpoint.
] ifFalse:[
- table := table, (Array with: (breakpoint line) with: breakpoint).
+ "/old way:
+ "/table := table, (Array with: (breakpoint line) with: breakpoint).
+
+ "/new way:
+ table := table copyWith: breakpoint
].
method breakpointTable: table.
^breakpoint
"Created: / 16-04-2013 / 00:25:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 24-04-2013 / 19:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MessageTracer class methodsFor:'method counting'!