--- a/DebugView.st Wed Nov 22 13:43:00 1995 +0100
+++ b/DebugView.st Wed Nov 22 13:43:52 1995 +0100
@@ -42,7 +42,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.49 1995-11-13 18:22:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.50 1995-11-22 12:43:52 cg Exp $'
!
documentation
@@ -280,9 +280,9 @@
].
answer := Dialog
choose:('error in debugger: ' , ex errorString , '\\debug again ?') withCRs
- labels:#('debug' 'proceed' 'ignore' )
- values:#(#debug #proceed #ignore)
- default:#ignore.
+ labels:#('debug' 'proceed' 'cancel' )
+ values:#(#debug #proceed #cancel)
+ default:#cancel.
answer == #debug ifTrue:[
Debugger enterUnconditional:(ex suspendedContext) withMessage:'error in debugger: ' , ex errorString.
ex proceed.