--- 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!