equal
deleted
inserted
replaced
191 ! |
191 ! |
192 |
192 |
193 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed |
193 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed |
194 "enter a debugger - do not check for recursive invocation" |
194 "enter a debugger - do not check for recursive invocation" |
195 |
195 |
196 |aDebugger proc debugAction| |
196 |aDebugger proc| |
197 |
197 |
198 StepInterruptPending := nil. |
198 StepInterruptPending := nil. |
199 proc := Processor activeProcess. |
199 proc := Processor activeProcess. |
200 |
200 |
201 "/ ignore halts & breakpoints while setting up the debugger |
201 "/ ignore halts & breakpoints while setting up the debugger |
202 "/ to avoid recursive debugging ... |
202 "/ to avoid recursive debugging ... |
203 ControlInterrupt handle:[:ex | |
203 (HaltInterrupt , BreakPointInterrupt) handle:[:ex | |
|
204 |
204 ex parameter == #doNotCatchInDebugger. |
205 ex parameter == #doNotCatchInDebugger. |
205 |
206 |
206 ex parameter printCR. |
207 ex parameter printCR. |
207 'DebugView [info]: breakpoint in debugger ignored [enterUncond.]' infoPrintCR. |
208 'DebugView [info]: breakpoint in debugger ignored [enterUncond.]' infoPrintCR. |
208 ex proceed |
209 ex proceed |
235 ]. |
236 ]. |
236 ^ nil |
237 ^ nil |
237 |
238 |
238 "nil halt" |
239 "nil halt" |
239 |
240 |
240 "Modified: / 16.11.2001 / 17:15:48 / cg" |
241 "Modified: / 17.11.2001 / 17:00:19 / cg" |
241 ! |
242 ! |
242 |
243 |
243 new |
244 new |
244 "return a new DebugView. |
245 "return a new DebugView. |
245 - return a cached debugger if it already exists. |
246 - return a cached debugger if it already exists. |
423 |
424 |
424 defaultVerboseBacktrace:aBoolean |
425 defaultVerboseBacktrace:aBoolean |
425 VerboseBacktraceDefault := aBoolean |
426 VerboseBacktraceDefault := aBoolean |
426 |
427 |
427 "Created: 11.1.1997 / 12:14:44 / cg" |
428 "Created: 11.1.1997 / 12:14:44 / cg" |
|
429 ! |
|
430 |
|
431 updateStyleCache |
|
432 DefaultDebuggerBackgroundColor := StyleSheet at:#'debugView.viewBackgroundColor' |
|
433 |
|
434 "Modified: / 17.11.2001 / 17:31:42 / cg" |
428 ! ! |
435 ! ! |
429 |
436 |
430 !DebugView class methodsFor:'menu specs'! |
437 !DebugView class methodsFor:'menu specs'! |
431 |
438 |
432 menuSpec |
439 menuSpec |
5040 ! ! |
5047 ! ! |
5041 |
5048 |
5042 !DebugView class methodsFor:'documentation'! |
5049 !DebugView class methodsFor:'documentation'! |
5043 |
5050 |
5044 version |
5051 version |
5045 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.299 2001-11-17 11:36:07 cg Exp $' |
5052 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.300 2001-11-17 16:36:04 cg Exp $' |
5046 ! ! |
5053 ! ! |
5047 DebugView initialize! |
5054 DebugView initialize! |