equal
deleted
inserted
replaced
3409 ]. |
3409 ]. |
3410 |
3410 |
3411 self topView raiseDeiconified. |
3411 self topView raiseDeiconified. |
3412 |
3412 |
3413 answer := Dialog |
3413 answer := Dialog |
3414 choose:('error in debugger: ' , ex errorString , '\\debug again ?') withCRs |
3414 choose:('error in debugger:\' withCRs , ex errorString , '\\debug again ?' withCRs) |
3415 labels:#( 'proceed' 'cancel' 'debug' ) |
3415 labels:#( 'proceed' 'cancel' 'debug' ) |
3416 values:#( #proceed #cancel #debug ) |
3416 values:#( #proceed #cancel #debug ) |
3417 default:#cancel. |
3417 default:#cancel. |
3418 answer == #debug ifTrue:[ |
3418 answer == #debug ifTrue:[ |
3419 Debugger enterUnconditional:(ex suspendedContext) withMessage:'error in debugger: ' , ex errorString. |
3419 Debugger enterUnconditional:(ex suspendedContext) withMessage:'error in debugger: ' , ex errorString. |
3429 ]. |
3429 ]. |
3430 ]. |
3430 ]. |
3431 catchBlock := nil. |
3431 catchBlock := nil. |
3432 |
3432 |
3433 "Created: / 24.11.1995 / 20:33:45 / cg" |
3433 "Created: / 24.11.1995 / 20:33:45 / cg" |
3434 "Modified: / 29.7.1998 / 15:08:05 / cg" |
3434 "Modified: / 31.5.1999 / 15:19:45 / cg" |
3435 ! ! |
3435 ! ! |
3436 |
3436 |
3437 !DebugView methodsFor:'user interaction'! |
3437 !DebugView methodsFor:'user interaction'! |
3438 |
3438 |
3439 checkSelectionChangeAllowed |
3439 checkSelectionChangeAllowed |
3922 ! ! |
3922 ! ! |
3923 |
3923 |
3924 !DebugView class methodsFor:'documentation'! |
3924 !DebugView class methodsFor:'documentation'! |
3925 |
3925 |
3926 version |
3926 version |
3927 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.226 1999-05-26 13:46:13 cg Exp $' |
3927 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.227 1999-05-31 13:31:56 cg Exp $' |
3928 ! ! |
3928 ! ! |
3929 DebugView initialize! |
3929 DebugView initialize! |