5751 |
5751 |
5752 eMsg := ex description. |
5752 eMsg := ex description. |
5753 (ex signal isControlInterrupt) ifTrue:[ |
5753 (ex signal isControlInterrupt) ifTrue:[ |
5754 eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString |
5754 eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString |
5755 ]. |
5755 ]. |
5756 |
5756 Dialog aboutToOpenBoxNotificationSignal |
5757 answer := Dialog |
5757 handle:[:ex | ex proceed ] |
|
5758 do:[ |
|
5759 answer := Dialog |
5758 choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs) |
5760 choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs) |
5759 labels:#( 'Proceed' 'Cancel' 'Debug' ) |
5761 labels:#( 'Proceed' 'Cancel' 'Debug' ) |
5760 values:#( #proceed #cancel #debug ) |
5762 values:#( #proceed #cancel #debug ) |
5761 default:#cancel. |
5763 default:#cancel. |
|
5764 ]. |
5762 answer == #debug ifTrue:[ |
5765 answer == #debug ifTrue:[ |
5763 'DebugView [info]: cought exception - debugging' infoPrintCR. |
5766 'DebugView [info]: cought exception - debugging' infoPrintCR. |
5764 Debugger |
5767 Debugger |
5765 enterUnconditional:(ex suspendedContext) |
5768 enterUnconditional:(ex suspendedContext) |
5766 withMessage:'Error in debugger: ' , eMsg |
5769 withMessage:'Error in debugger: ' , eMsg |