--- a/GenericException.st Fri Mar 11 22:36:14 2016 +0000
+++ b/GenericException.st Sat Mar 12 07:23:20 2016 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -224,6 +226,7 @@
self raiseErrorString:messageText
! !
+
!GenericException class methodsFor:'accessing'!
errorString
@@ -2095,6 +2098,20 @@
"Modified: / 3.8.1999 / 13:33:01 / stefan"
!
+raiseErrorString:aString
+ "raise the signal nonproceedable.
+ The argument, aString is used as messageText"
+
+ <context: #return>
+
+ raiseContext := thisContext.
+ suspendedContext := thisContext sender.
+ messageText := aString.
+ proceedable := false.
+
+ ^ self doRaise
+!
+
raiseErrorString:aString in:aContext
"raise the signal nonproceedable.
The argument, aString is used as messageText"