--- a/DebugView.st	Tue Sep 25 08:41:51 2018 +0200
+++ b/DebugView.st	Tue Sep 25 10:36:15 2018 +0200
@@ -8852,10 +8852,18 @@
             DialogBox aboutToOpenBoxNotificationSignal
                 handle:[:ex | ex proceed ]
                 do:[
+                    |labels values|
+
+                    labels := #( 'Proceed' 'Cancel' 'Debug' ).
+                    values := #( #proceed #cancel #debug ).
+                    ex creator == BreakPointInterrupt ifTrue:[
+                        labels := #('Disable BreakPoint & Proceed' ) , labels.
+                        values := #(#disableAndProceed ) , values.
+                    ].    
                     answer := Dialog
                         choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
-                        labels:#( 'Proceed' 'Cancel' 'Debug' )
-                        values:#( #proceed #cancel #debug )
+                        labels:(resources array:labels)
+                        values:values
                         default:#cancel.
                 ].
             answer == #debug ifTrue:[
@@ -8866,6 +8874,10 @@
                     mayProceed:true.
                 ex proceed.
             ].
+            answer == #disableAndProceed ifTrue:[
+                ex parameter disable.
+                answer := #proceed.
+            ].    
             answer == #proceed ifTrue:[
                 'DebugView [info]: ignored exception - proceeding' infoPrintCR.
                 ex proceed.
@@ -8893,6 +8905,7 @@
     "Created: / 24-11-1995 / 20:33:45 / cg"
     "Modified: / 26-09-2012 / 15:03:39 / cg"
     "Modified: / 15-05-2018 / 20:38:41 / stefan"
+    "Modified: / 25-09-2018 / 10:18:26 / Claus Gittinger"
 ! !
 
 !DebugView methodsFor:'queries'!