--- a/DebugView.st	Mon May 24 09:53:04 2004 +0200
+++ b/DebugView.st	Thu May 27 15:06:35 2004 +0200
@@ -3783,7 +3783,10 @@
     "/ not reached (normally)
     inspecting ifFalse:[
         'DebugView [warning]: terminate failed' errorPrintCR.
-        self warn:'terminate failed'.
+        (self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
+            Debugger newDebugger.
+            Processor activeProcess terminate.
+        ]
     ].
     terminateButton turnOff.
 
@@ -3882,8 +3885,11 @@
 
     "/ not reached (normally)
     inspecting ifFalse:[
-        'DebugView [warning]: terminate failed' errorPrintCR.
-        self warn:'terminate failed'.
+        'DebugView [warning]: quick terminate failed' errorPrintCR.
+        (self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
+            Debugger newDebugger.
+            Processor activeProcess terminateNoSignal.
+        ]
     ].
     terminateButton turnOff.
 
@@ -5866,7 +5872,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.367 2004-05-19 14:45:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.368 2004-05-27 13:06:35 penk Exp $'
 ! !
 
 DebugView initialize!