equal
deleted
inserted
replaced
8051 ]. |
8051 ]. |
8052 Dialog aboutToOpenBoxNotificationSignal |
8052 Dialog aboutToOpenBoxNotificationSignal |
8053 handle:[:ex | ex proceed ] |
8053 handle:[:ex | ex proceed ] |
8054 do:[ |
8054 do:[ |
8055 answer := Dialog |
8055 answer := Dialog |
8056 choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs) |
8056 choose:(ex creator class name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs) |
8057 labels:#( 'Proceed' 'Cancel' 'Debug' ) |
8057 labels:#( 'Proceed' 'Cancel' 'Debug' ) |
8058 values:#( #proceed #cancel #debug ) |
8058 values:#( #proceed #cancel #debug ) |
8059 default:#cancel. |
8059 default:#cancel. |
8060 ]. |
8060 ]. |
8061 answer == #debug ifTrue:[ |
8061 answer == #debug ifTrue:[ |
8062 'DebugView [info]: caught exception - debugging' infoPrintCR. |
8062 'DebugView [info]: caught exception - debugging' infoPrintCR. |
8063 Debugger |
8063 Debugger |
8064 enterUnconditional:(ex suspendedContext) |
8064 enterUnconditional:(ex suspendedContext) |
8065 withMessage:'Error in debugger: ' , eMsg |
8065 withMessage:(ex creator class name,' in debugger: ' , eMsg) |
8066 mayProceed:true. |
8066 mayProceed:true. |
8067 ex proceed. |
8067 ex proceed. |
8068 ]. |
8068 ]. |
8069 answer == #proceed ifTrue:[ |
8069 answer == #proceed ifTrue:[ |
8070 'DebugView [info]: ignored exception - proceeding' infoPrintCR. |
8070 'DebugView [info]: ignored exception - proceeding' infoPrintCR. |
9447 ! ! |
9447 ! ! |
9448 |
9448 |
9449 !DebugView class methodsFor:'documentation'! |
9449 !DebugView class methodsFor:'documentation'! |
9450 |
9450 |
9451 version |
9451 version |
9452 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $' |
9452 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $' |
9453 ! |
9453 ! |
9454 |
9454 |
9455 version_CVS |
9455 version_CVS |
9456 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $' |
9456 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $' |
9457 ! |
9457 ! |
9458 |
9458 |
9459 version_SVN |
9459 version_SVN |
9460 ^ '$Id: DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $' |
9460 ^ '$Id: DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $' |
9461 ! ! |
9461 ! ! |
9462 |
9462 |
9463 |
9463 |
9464 DebugView initialize! |
9464 DebugView initialize! |