--- a/Signal.st Thu Jul 25 20:10:41 1996 +0200
+++ b/Signal.st Fri Jul 26 16:30:12 1996 +0200
@@ -17,7 +17,7 @@
category:'Kernel-Exceptions'
!
-!Signal class methodsFor:'documentation'!
+!Signal class methodsFor:'documentation'!
copyright
"
@@ -126,7 +126,7 @@
"
! !
-!Signal class methodsFor:'initialization'!
+!Signal class methodsFor:'initialization'!
initialize
"setup the signal used to handle unhandled signals"
@@ -138,7 +138,7 @@
]
! !
-!Signal class methodsFor:'instance creation'!
+!Signal class methodsFor:'instance creation'!
new
"return a new signal"
@@ -146,7 +146,7 @@
^ (self basicNew) notifierString:'signal'
! !
-!Signal class methodsFor:'Signal constants'!
+!Signal class methodsFor:'Signal constants'!
noHandlerSignal
"return the signal used to handle unhandled signals"
@@ -486,7 +486,8 @@
raiseRequestWith:aParameter errorString:aString in:aContext
"raise a signal proceedable.
The argument, aString is used as errorString.
- The additional context is passed as the context responsible for the raise."
+ The additional context is passed as the context responsible for the raise,
+ allowing a raise to mimicri the exception happened somewhere else."
^ (Exception
signal:self
@@ -494,13 +495,14 @@
errorString:(self errorStringFor:aString with:aParameter)
suspendedContext:aContext) raiseRequest
- "Modified: 9.5.1996 / 15:13:59 / cg"
+ "Modified: 26.7.1996 / 16:29:27 / cg"
!
raiseRequestWith:aParameter in:aContext
"raise a signal proceedable.
The signals notifierString is used as errorString.
- The additional context is passed as the context responsible for the raise."
+ The additional context is passed as the context responsible for the raise,
+ allowing a raise to mimicri the exception happened somewhere else."
^ (Exception
signal:self
@@ -508,7 +510,7 @@
errorString:(self errorStringFor:nil with:aParameter)
suspendedContext:aContext) raiseRequest.
- "Modified: 9.5.1996 / 15:14:16 / cg"
+ "Modified: 26.7.1996 / 16:29:33 / cg"
!
raiseWith:aParameter
@@ -548,7 +550,10 @@
- notice, ST/X does not (for now) distinguish between proceedable and
non proceedable exceptions.
The argument, aString is used as errorString, aParameter is passed
- as exception parameter."
+ as exception parameter.
+ The additional context is passed as the context responsible for the raise,
+ allowing a raise to mimicri the exception happened somewhere else."
+
^ (Exception
signal:self
@@ -557,7 +562,7 @@
suspendedContext:aContext) raise.
"Created: 2.5.1996 / 16:37:25 / cg"
- "Modified: 9.5.1996 / 15:14:40 / cg"
+ "Modified: 26.7.1996 / 16:29:42 / cg"
! !
!Signal methodsFor:'save evaluation'!
@@ -666,9 +671,9 @@
"
! !
-!Signal class methodsFor:'documentation'!
+!Signal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.36 1996-05-09 13:24:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.37 1996-07-26 14:30:12 cg Exp $'
! !
Signal initialize!