# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 972494914 -7200
# Node ID b7fe093174aa9b85fe68421dbc763f17da63be7c
# Parent  53cc1d686f034aed3a5e497bc1623c2afda76709
*** empty log message ***

diff -r 53cc1d686f03 -r b7fe093174aa Signal.st
--- a/Signal.st	Wed Oct 25 19:28:20 2000 +0200
+++ b/Signal.st	Wed Oct 25 19:28:34 2000 +0200
@@ -500,6 +500,21 @@
     "Modified: / 12.3.1998 / 15:15:22 / 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"
+!
+
 raiseFrom:something
     "raise a signal nonproceedable.
      The argument, something is passed both as parameter and originator."
@@ -776,5 +791,5 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.78 2000-08-31 10:03:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.79 2000-10-25 17:28:34 cg Exp $'
 ! !