equal
deleted
inserted
replaced
3513 Also sent to autoselect an interesting context on entry." |
3513 Also sent to autoselect an interesting context on entry." |
3514 |
3514 |
3515 Object errorSignal handle:[:ex | |
3515 Object errorSignal handle:[:ex | |
3516 |s con| |
3516 |s con| |
3517 |
3517 |
|
3518 ex signal == Object haltSignal ifTrue:[ |
|
3519 'DebugView [info]: halt ignored - while showing selection in debugger' infoPrintCR. |
|
3520 ex proceed |
|
3521 ]. |
|
3522 |
3518 'DebugView [info]: error when showing selection in debugger ignored' infoPrintCR. |
3523 'DebugView [info]: error when showing selection in debugger ignored' infoPrintCR. |
3519 |
3524 |
3520 s := '' writeStream. |
3525 s := '' writeStream. |
3521 s nextPutLine:'**** error in debugger, while extracting source'. |
3526 s nextPutLine:'**** error in debugger, while extracting source'. |
3522 s nextPutLine:'****'. |
3527 s nextPutLine:'****'. |
3537 ex return. |
3542 ex return. |
3538 ] do:[ |
3543 ] do:[ |
3539 self doShowSelection:lineNr |
3544 self doShowSelection:lineNr |
3540 ] |
3545 ] |
3541 |
3546 |
3542 "Modified: / 29.7.1998 / 21:57:11 / cg" |
3547 "Modified: / 11.8.1998 / 20:56:45 / cg" |
3543 ! |
3548 ! |
3544 |
3549 |
3545 updateForContext:lineNr |
3550 updateForContext:lineNr |
3546 "show selected code for lineNr in contextList in textView. |
3551 "show selected code for lineNr in contextList in textView. |
3547 Also used to autoselect an interesting context on entry." |
3552 Also used to autoselect an interesting context on entry." |
3870 ! ! |
3875 ! ! |
3871 |
3876 |
3872 !DebugView class methodsFor:'documentation'! |
3877 !DebugView class methodsFor:'documentation'! |
3873 |
3878 |
3874 version |
3879 version |
3875 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.214 1998-08-04 18:41:07 cg Exp $' |
3880 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.215 1998-08-11 18:57:22 cg Exp $' |
3876 ! ! |
3881 ! ! |
3877 DebugView initialize! |
3882 DebugView initialize! |