equal
deleted
inserted
replaced
3220 "/ #destroy-window function. |
3220 "/ #destroy-window function. |
3221 "/ |
3221 "/ |
3222 Context invalidReturnSignal handle:[:ex | |
3222 Context invalidReturnSignal handle:[:ex | |
3223 'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR. |
3223 'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR. |
3224 self uncacheMyself. |
3224 self uncacheMyself. |
|
3225 Debugger newDebugger. |
3225 ex return. |
3226 ex return. |
3226 ] do:[ |
3227 ] do:[ |
3227 canAbort ifTrue:[ |
3228 canAbort ifTrue:[ |
3228 self doAbort. |
3229 self doAbort. |
3229 ] ifFalse:[ |
3230 ] ifFalse:[ |
3230 self doContinue |
3231 self doContinue |
3231 ] |
3232 ] |
3232 ]. |
3233 ]. |
3233 "/ We don't reach this point normally |
3234 "/ We don't reach this point normally |
3234 'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR. |
3235 'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR. |
|
3236 Debugger newDebugger. |
3235 self uncacheMyself. |
3237 self uncacheMyself. |
3236 ]. |
3238 ]. |
3237 |
3239 |
3238 |
3240 |
3239 "/ since I am going to be destroyed, remove me from the cache |
3241 "/ since I am going to be destroyed, remove me from the cache |
3240 self uncacheMyself. |
3242 self uncacheMyself. |
3241 super destroy. |
3243 super destroy. |
3242 |
3244 |
3243 "Modified: 11.1.1997 / 13:55:09 / cg" |
|
3244 "Modified: 10.7.1997 / 17:15:41 / stefan" |
3245 "Modified: 10.7.1997 / 17:15:41 / stefan" |
|
3246 "Modified: 12.8.1997 / 02:07:19 / cg" |
3245 ! |
3247 ! |
3246 |
3248 |
3247 showSelection:lineNr |
3249 showSelection:lineNr |
3248 "user clicked on a header line - show selected code in textView. |
3250 "user clicked on a header line - show selected code in textView. |
3249 Also sent to autoselect an interesting context on entry." |
3251 Also sent to autoselect an interesting context on entry." |
3540 ! ! |
3542 ! ! |
3541 |
3543 |
3542 !DebugView class methodsFor:'documentation'! |
3544 !DebugView class methodsFor:'documentation'! |
3543 |
3545 |
3544 version |
3546 version |
3545 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.167 1997-08-11 14:06:02 cg Exp $' |
3547 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.168 1997-08-12 00:29:47 cg Exp $' |
3546 ! ! |
3548 ! ! |
3547 DebugView initialize! |
3549 DebugView initialize! |