equal
deleted
inserted
replaced
123 enter |
123 enter |
124 "enter a debugger" |
124 "enter a debugger" |
125 |
125 |
126 <context: #return> |
126 <context: #return> |
127 |
127 |
128 self enter:thisContext sender withMessage:'debugger entered' mayProceed:true. |
128 ^ self |
|
129 enter:thisContext sender |
|
130 withMessage:'debugger entered' |
|
131 mayProceed:true. |
129 ! |
132 ! |
130 |
133 |
131 enter:aContext withMessage:aString |
134 enter:aContext withMessage:aString |
132 "enter a debugger" |
135 "enter a debugger" |
133 |
136 |
179 ^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed |
182 ^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed |
180 |
183 |
181 "Modified: / 18.11.2001 / 00:48:03 / cg" |
184 "Modified: / 18.11.2001 / 00:48:03 / cg" |
182 ! |
185 ! |
183 |
186 |
|
187 enterException:ex |
|
188 "enter a debugger; if this is a recursive invocation, enter |
|
189 a MiniDebugger instead. |
|
190 This is the standard way of entering the debugger; |
|
191 sent from error- and halt messages." |
|
192 |
|
193 ^ self |
|
194 enter:ex returnableSuspendedContext |
|
195 withMessage:ex descriptionForDebugger |
|
196 mayProceed:(ex mayProceed). |
|
197 ! |
|
198 |
184 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed |
199 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed |
185 "enter a debugger - do not check for recursive invocation" |
200 "enter a debugger - do not check for recursive invocation" |
186 |
201 |
187 <context: #return> |
202 <context: #return> |
188 |
203 |
231 enterWithMessage:message |
246 enterWithMessage:message |
232 "enter a debugger" |
247 "enter a debugger" |
233 |
248 |
234 <context: #return> |
249 <context: #return> |
235 |
250 |
236 self enter:(thisContext sender) withMessage:message mayProceed:true. |
251 ^ self |
|
252 enter:(thisContext sender) |
|
253 withMessage:message |
|
254 mayProceed:true. |
237 ! |
255 ! |
238 |
256 |
239 new |
257 new |
240 "return a new DebugView. |
258 "return a new DebugView. |
241 - return a cached debugger if it already exists. |
259 - return a cached debugger if it already exists. |
6510 ! ! |
6528 ! ! |
6511 |
6529 |
6512 !DebugView class methodsFor:'documentation'! |
6530 !DebugView class methodsFor:'documentation'! |
6513 |
6531 |
6514 version |
6532 version |
6515 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.452 2008-10-16 12:35:14 cg Exp $' |
6533 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.453 2008-10-19 18:45:11 cg Exp $' |
6516 ! ! |
6534 ! ! |
6517 |
6535 |
6518 DebugView initialize! |
6536 DebugView initialize! |