# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 972494900 -7200
# Node ID 53cc1d686f034aed3a5e497bc1623c2afda76709
# Parent  3312d4d798dce3bb503fdf0cf753b2b566427de6
checkin from browser

diff -r 3312d4d798dc -r 53cc1d686f03 GenericException.st
--- 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!