# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 932753580 -7200
# Node ID b41133d7941b408e45b887df684cbe87db375ab9
# Parent  4da4e51fc1abea4e4de1c547931eb7deff840944
Add signal creation methods.

diff -r 4da4e51fc1ab -r b41133d7941b Exception.st
--- a/Exception.st	Fri Jul 23 19:53:36 1999 +0200
+++ b/Exception.st	Fri Jul 23 20:13:00 1999 +0200
@@ -761,6 +761,28 @@
     "Created: / 23.7.1999 / 14:06:40 / stefan"
 ! !
 
+!Exception class methodsFor:'compatibility - signal creation'!
+
+newSignal
+    "create a new signal, using the receiver as a prototype and
+     setting the parent of the new signal to the receiver."
+
+    ^ self newSignalMayProceed:self mayProceed
+
+    "Created: / 23.7.1999 / 20:13:23 / stefan"
+!
+
+newSignalMayProceed:proceed
+    "create a new signal, using the receiver as a prototype and
+     setting the parent of the new signal to the receiver."
+
+    ^ (Signal basicNew) mayProceed:proceed;
+                    notifierString:NotifierString;
+                            parent:self
+
+    "Created: / 23.7.1999 / 20:12:43 / stefan"
+! !
+
 !Exception class methodsFor:'defaults'!
 
 emergencyHandler
@@ -1629,6 +1651,6 @@
 !Exception class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.68 1999-07-23 15:46:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.69 1999-07-23 18:13:00 stefan Exp $'
 ! !
 Exception initialize!