--- a/DebugView.st	Tue Jul 28 15:18:35 1998 +0200
+++ b/DebugView.st	Wed Jul 29 15:11:41 1998 +0200
@@ -743,8 +743,13 @@
     "/ wait until realized ...
     "/ - kludge; I have (currently) no idea, why this is needed ...
     "/
-    windowGroup eventLoopWhile:[self shown not] onLeave:[].
-    self withAllSubViewsDo:[:v | v invalidate].
+    Object haltSignal handle:[:ex |
+        'DebugView [info]: halt in debugger ignored' infoPrintCR.
+        ex proceed.
+    ] do:[
+        windowGroup eventLoopWhile:[self shown not] onLeave:[].
+        self withAllSubViewsDo:[:v | v invalidate].
+    ].
 
     canContinue := true.
     exitAction := nil.
@@ -982,7 +987,7 @@
 
     "Modified: / 17.4.1997 / 13:01:32 / stefan"
     "Created: / 30.10.1997 / 21:08:18 / cg"
-    "Modified: / 27.7.1998 / 17:20:12 / cg"
+    "Modified: / 29.7.1998 / 15:05:37 / cg"
 !
 
 openOn:aProcess
@@ -3211,6 +3216,10 @@
                 (signal == ActivityNotificationSignal) ifTrue:[
                     ex proceed
                 ].
+                (signal == Object haltSignal) ifTrue:[
+                    'DebugView [info]: halt in debugger ignored' infoPrintCR.
+                    ex proceed
+                ].
                 (signal == Process terminateSignal) ifTrue:[
                     "/ mhm - someone wants to shoot me down while debugging ...
                     answer := Dialog 
@@ -3272,7 +3281,7 @@
     catchBlock := nil.
 
     "Created: / 24.11.1995 / 20:33:45 / cg"
-    "Modified: / 17.1.1998 / 12:58:35 / cg"
+    "Modified: / 29.7.1998 / 15:08:05 / cg"
 ! !
 
 !DebugView methodsFor:'user interaction'!
@@ -3779,6 +3788,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.209 1998-07-27 15:23:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.210 1998-07-29 13:11:41 cg Exp $'
 ! !
 DebugView initialize!