--- a/Signal.st Mon Jan 20 12:37:17 1997 +0100
+++ b/Signal.st Mon Jan 20 12:49:30 1997 +0100
@@ -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"
@@ -346,21 +346,23 @@
con := aContext.
[con notNil] whileTrue:[
- (((sel := con selector) == #handle:do:)
- or:[sel == #handle:from:do:]) ifTrue:[
- "
- is this is a #handle:do: or a #handle:from:do: context
- with self in it ?
- "
- (con receiver accepts:self) ifTrue:[
- "found a handler context"
+ con := con findContextWithSelector:#'handle:do:' or:#'handle:from:do:'.
+ con notNil ifTrue:[
+ "
+ is this is a #handle:do: or a #handle:from:do: context
+ with self in it ?
+ "
+ (con receiver accepts:self) ifTrue:[
+ "found a handler context"
- ^ true
- ].
- ].
- con := con sender
+ ^ true
+ ].
+ con := con sender
+ ]
].
^ false
+
+ "Modified: 20.1.1997 / 12:45:01 / cg"
!
isQuerySignal
@@ -689,9 +691,9 @@
"
! !
-!Signal class methodsFor:'documentation'!
+!Signal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.38 1996-07-26 14:44:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.39 1997-01-20 11:49:30 cg Exp $'
! !
Signal initialize!