equal
deleted
inserted
replaced
20 ObjectWrittenBreakpointSignal ObjectCopyHolders TimeForWrappers' |
20 ObjectWrittenBreakpointSignal ObjectCopyHolders TimeForWrappers' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'System-Debugging-Support' |
22 category:'System-Debugging-Support' |
23 ! |
23 ! |
24 |
24 |
25 MessageTracer subclass:#PrintingMessageTracer |
25 MessageTracer subclass:#InteractionCollector |
26 instanceVariableNames:'' |
26 instanceVariableNames:'' |
27 classVariableNames:'' |
27 classVariableNames:'' |
28 poolDictionaries:'' |
28 poolDictionaries:'' |
29 privateIn:MessageTracer |
29 privateIn:MessageTracer |
30 ! |
30 ! |
31 |
31 |
32 MessageTracer subclass:#InteractionCollector |
32 MessageTracer subclass:#PrintingMessageTracer |
33 instanceVariableNames:'' |
33 instanceVariableNames:'' |
34 classVariableNames:'' |
34 classVariableNames:'' |
35 poolDictionaries:'' |
35 poolDictionaries:'' |
36 privateIn:MessageTracer |
36 privateIn:MessageTracer |
37 ! |
37 ! |
688 ! |
688 ! |
689 |
689 |
690 untrapAllClasses |
690 untrapAllClasses |
691 "remove any traps on any class" |
691 "remove any traps on any class" |
692 |
692 |
693 Smalltalk allBehaviorsDo:[:aClass | |
693 Smalltalk allClassesDo:[:aClass | |
694 self untrapClass:aClass |
694 self untrapClass:aClass |
695 ] |
695 ] |
696 |
696 |
697 " |
697 " |
698 MessageTracer untrapAllClasses |
698 MessageTracer untrapAllClasses |
699 " |
699 " |
2856 PrintingMessageTracer new trace:[#(6 5 4 3 2 1) sort] detail:#indent |
2856 PrintingMessageTracer new trace:[#(6 5 4 3 2 1) sort] detail:#indent |
2857 |
2857 |
2858 PrintingMessageTracer new trace:[#(6 5 4 3 2 1) sort] detail:#fullIndent |
2858 PrintingMessageTracer new trace:[#(6 5 4 3 2 1) sort] detail:#fullIndent |
2859 " |
2859 " |
2860 |
2860 |
|
2861 ! ! |
|
2862 |
|
2863 !MessageTracer::InteractionCollector methodsFor:'trace helpers '! |
|
2864 |
|
2865 stepInterrupt |
|
2866 StepInterruptPending := nil. |
|
2867 ObjectMemory flushInlineCaches. |
|
2868 StepInterruptPending := 1. |
|
2869 InterruptPending := 1. |
2861 ! ! |
2870 ! ! |
2862 |
2871 |
2863 !MessageTracer::PrintingMessageTracer methodsFor:'trace helpers '! |
2872 !MessageTracer::PrintingMessageTracer methodsFor:'trace helpers '! |
2864 |
2873 |
2865 stepInterrupt |
2874 stepInterrupt |
2935 self new trace:[#(6 5 4 3 2 1) sort] detail:#fullIndent |
2944 self new trace:[#(6 5 4 3 2 1) sort] detail:#fullIndent |
2936 self new trace:[ View new ] detail:#fullIndent |
2945 self new trace:[ View new ] detail:#fullIndent |
2937 " |
2946 " |
2938 ! ! |
2947 ! ! |
2939 |
2948 |
2940 !MessageTracer::InteractionCollector methodsFor:'trace helpers '! |
|
2941 |
|
2942 stepInterrupt |
|
2943 StepInterruptPending := nil. |
|
2944 ObjectMemory flushInlineCaches. |
|
2945 StepInterruptPending := 1. |
|
2946 InterruptPending := 1. |
|
2947 ! ! |
|
2948 |
|
2949 !MessageTracer class methodsFor:'documentation'! |
2949 !MessageTracer class methodsFor:'documentation'! |
2950 |
2950 |
2951 version |
2951 version |
2952 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.88 2000-08-22 19:57:22 cg Exp $' |
2952 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.89 2000-09-03 14:45:21 cg Exp $' |
2953 ! ! |
2953 ! ! |
2954 MessageTracer initialize! |
2954 MessageTracer initialize! |