# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1224441911 -7200
# Node ID 724f40cfdbc65a0cd0b7edac83f456a4892f1153
# Parent  3cf131f32d0a2af412fa29dcf6712a39d2ae36e6
+enterException

diff -r 3cf131f32d0a -r 724f40cfdbc6 DebugView.st
--- a/DebugView.st	Sun Oct 19 17:23:43 2008 +0200
+++ b/DebugView.st	Sun Oct 19 20:45:11 2008 +0200
@@ -125,7 +125,10 @@
 
     <context: #return>
 
-    self enter:thisContext sender withMessage:'debugger entered' mayProceed:true.
+    ^ self 
+        enter:thisContext sender 
+        withMessage:'debugger entered'  
+        mayProceed:true.
 !
 
 enter:aContext withMessage:aString 
@@ -181,6 +184,18 @@
     "Modified: / 18.11.2001 / 00:48:03 / cg"
 !
 
+enterException:ex
+    "enter a debugger; if this is a recursive invocation, enter
+     a MiniDebugger instead.
+     This is the standard way of entering the debugger;
+     sent from error- and halt messages."
+
+    ^ self
+        enter:ex returnableSuspendedContext
+        withMessage:ex descriptionForDebugger
+        mayProceed:(ex mayProceed).
+!
+
 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
     "enter a debugger - do not check for recursive invocation"
 
@@ -233,7 +248,10 @@
 
     <context: #return>
 
-    self enter:(thisContext sender) withMessage:message mayProceed:true.
+    ^ self 
+        enter:(thisContext sender) 
+        withMessage:message 
+        mayProceed:true.
 !
 
 new
@@ -6512,7 +6530,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.452 2008-10-16 12:35:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.453 2008-10-19 18:45:11 cg Exp $'
 ! !
 
 DebugView initialize!