--- a/GenericException.st Wed Feb 05 18:17:24 2014 +0100
+++ b/GenericException.st Wed Feb 05 18:17:26 2014 +0100
@@ -222,6 +222,7 @@
self raiseErrorString:messageText
! !
+
!GenericException class methodsFor:'accessing'!
errorString
@@ -2235,6 +2236,8 @@
"actually raise an exception (whatever the proceedability is)."
<context: #return>
+ <resource: #skipInDebuggersWalkBack>
+
raiseContext := thisContext.
suspendedContext isNil ifTrue:[
@@ -2242,6 +2245,8 @@
].
proceedable := self mayProceed.
^ self doRaise
+
+ "Modified: / 19-04-2013 / 09:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
raiseWith:aParameter errorString:aString
@@ -2355,11 +2360,11 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.147 2013-08-24 12:24:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.148 2014-02-05 17:17:26 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.147 2013-08-24 12:24:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.148 2014-02-05 17:17:26 cg Exp $'
! !