equal
deleted
inserted
replaced
24 steppedContextLineno stepForReturn actualContext inWrap |
24 steppedContextLineno stepForReturn actualContext inWrap |
25 stackInspector steppedContext wrapperContext verboseBacktrace |
25 stackInspector steppedContext wrapperContext verboseBacktrace |
26 firstContext stepHow cachable currentMethod ignoreBreakpoints |
26 firstContext stepHow cachable currentMethod ignoreBreakpoints |
27 stepUntilEntering lastStepUntilEntering |
27 stepUntilEntering lastStepUntilEntering |
28 lastSelectionInReceiverInspector lastSelectionInContextInspector |
28 lastSelectionInReceiverInspector lastSelectionInContextInspector |
29 canShowMore exitAbort debuggersContext' |
29 canShowMore exitAbort' |
30 classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail |
30 classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail |
31 DebuggingDebugger VerboseBacktraceDefault DefaultIcon |
31 DebuggingDebugger VerboseBacktraceDefault DefaultIcon |
32 DefaultDebuggerBackgroundColor InitialNCHAINShown' |
32 DefaultDebuggerBackgroundColor InitialNCHAINShown' |
33 poolDictionaries:'' |
33 poolDictionaries:'' |
34 category:'Interface-Debugger' |
34 category:'Interface-Debugger' |
1130 iAmNew := drawableId isNil. |
1130 iAmNew := drawableId isNil. |
1131 |
1131 |
1132 verboseBacktrace := VerboseBacktraceDefault ? false. |
1132 verboseBacktrace := VerboseBacktraceDefault ? false. |
1133 |
1133 |
1134 thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s) |
1134 thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s) |
1135 debuggersContext := thisContext. |
|
1136 busy := cachable := true. |
1135 busy := cachable := true. |
1137 inspecting := false. |
1136 inspecting := false. |
1138 inspectedProcess := Processor activeProcess. |
1137 inspectedProcess := Processor activeProcess. |
1139 stepping := false. |
1138 stepping := false. |
1140 bigStep := false. |
1139 bigStep := false. |
1436 'DebugView [info]: ignored error while unwinding: ' infoPrint. |
1435 'DebugView [info]: ignored error while unwinding: ' infoPrint. |
1437 ex errorString infoPrintCR. |
1436 ex errorString infoPrintCR. |
1438 |
1437 |
1439 ex proceed |
1438 ex proceed |
1440 ] do:[ |
1439 ] do:[ |
1441 con := debuggersContext. |
1440 con := thisContext sender. |
1442 [ con selector ~~ #enter:select: ] |
1441 [ |
|
1442 (con selector ~~ #enter:select:) |
|
1443 or:[con receiver ~~ self] |
|
1444 ] |
1443 whileTrue:[ con := con sender ]. |
1445 whileTrue:[ con := con sender ]. |
1444 |
1446 |
1445 con unwindThenDo:[AbortOperationRequest raise]. |
1447 con unwindThenDo:[AbortOperationRequest raise]. |
1446 "/ AbortOperationRequest raise. |
1448 "/ AbortOperationRequest raise. |
1447 ]. |
1449 ]. |
5801 ! ! |
5803 ! ! |
5802 |
5804 |
5803 !DebugView class methodsFor:'documentation'! |
5805 !DebugView class methodsFor:'documentation'! |
5804 |
5806 |
5805 version |
5807 version |
5806 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.325 2002-08-02 13:56:35 penk Exp $' |
5808 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.326 2002-08-07 12:58:57 penk Exp $' |
5807 ! ! |
5809 ! ! |
5808 DebugView initialize! |
5810 DebugView initialize! |