--- a/GenericException.st Wed Oct 25 14:37:29 2000 +0200
+++ b/GenericException.st Wed Oct 25 19:28:20 2000 +0200
@@ -153,7 +153,6 @@
originator:origin.
! !
-
!GenericException class methodsFor:'Compatibility - ANSI'!
signalWith:errorString
@@ -490,6 +489,22 @@
"Created: / 23.7.1999 / 14:07:33 / stefan"
!
+raiseErrorString:aString in:aContext
+ "raise a signal nonproceedable.
+ The argument is used as errorString."
+
+ <context: #return>
+
+ ^ self newException
+ suspendedContext:aContext;
+ errorString:aString;
+ raise.
+
+ "Modified: / 9.5.1996 / 15:17:59 / cg"
+ "Modified: / 12.3.1998 / 15:15:22 / stefan"
+ "Created: / 23.7.1999 / 14:07:33 / stefan"
+!
+
raiseFrom:something
"raise a signal nonproceedable.
The argument, something is passed both as parameter and originator."
@@ -1095,7 +1110,6 @@
"Modified: 15.1.1997 / 20:15:12 / cg"
! !
-
!GenericException methodsFor:'Compatibility - ANSI'!
signalWith:errorString
@@ -1883,6 +1897,6 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.39 2000-10-25 10:23:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.40 2000-10-25 17:28:20 cg Exp $'
! !
GenericException initialize!