merged in jv's changes
authorClaus Gittinger <cg@exept.de>
Wed, 05 Feb 2014 18:17:26 +0100
changeset 15954 79784e354f4d
parent 15953 6ad068b28f7d
child 15955 5092a16d31ab
merged in jv's changes
GenericException.st
--- 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 $'
 ! !