--- a/NewLauncher.st	Thu Jun 05 11:53:20 2008 +0200
+++ b/NewLauncher.st	Thu Jun 05 12:36:00 2008 +0200
@@ -261,6 +261,9 @@
 #classesRemoveAllTracePoints
 'Remove all trace- and break-points.'
 
+#classesStopIgnoringHalts
+'Stop ignoring Halts in the debugger.'
+
 #classesResourceMethods
 'Open a dialog for searching resource methods.'
 
@@ -1247,6 +1250,13 @@
                   itemValue: removeAllBreakAndTracePoints
                   translateLabel: true
                 )
+               (MenuItem
+                  activeHelpKey: classesStopIgnoringHalts
+                  label: 'Stop Ignoring Halts/BreakPoints'
+                  itemValue: stopIgnoringHalts
+                  translateLabel: true
+                  enabled: debuggerHasIgnoredHalts
+                )
                )
               nil
               nil
@@ -3153,6 +3163,11 @@
       and:[Demos::ChickenFun isRunning]]]
 !
 
+debuggerHasIgnoredHalts
+    ^ DebugView notNil
+    and:[ DebugView hasIgnoredHalts ] 
+!
+
 displaySupportsGLDrawing
     "return a 'valueHolder', which returns true if the GL support
      is available."
@@ -4154,6 +4169,10 @@
 
     "Created: / 23-10-2006 / 16:00:25 / cg"
     "Modified: / 23-10-2006 / 20:38:34 / cg"
+!
+
+stopIgnoringHalts
+    DebugView stopIgnoringHalts
 ! !
 
 !NewLauncher methodsFor:'user actions-demos'!
@@ -4385,5 +4404,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.366 2008-05-30 12:24:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.367 2008-06-05 10:36:00 cg Exp $'
 ! !