--- a/GenericException.st Mon Jul 15 11:40:30 2002 +0200
+++ b/GenericException.st Mon Jul 15 11:42:29 2002 +0200
@@ -449,6 +449,22 @@
"Created: / 23.7.1999 / 13:59:51 / stefan"
!
+isExceptionCreator
+ "return true, if the receiver can create exceptions,
+ this includes #raise, #raiseRequest as well as the behavior of
+ an exception handler, such as the #accepts: and #handles: messages"
+
+ ^ true
+!
+
+isExceptionHandler
+ "return true, if the receiver responds to the exception handler protocol,
+ especially to the #accepts: and #handles: messages"
+ ^ true
+
+ "Created: / 23.7.1999 / 13:49:59 / stefan"
+!
+
isHandled
"return true, if there is a handler for the receiver signal.
Raising an unhandled signal will usually lead into the debugger,
@@ -474,24 +490,6 @@
"Created: / 23.7.1999 / 13:50:16 / stefan"
!
-isSignal
- "return true, if the receiver is some kind of signal;
- true returned here - the method is redefined from Object."
-
- ^ true
-
- "Created: / 23.7.1999 / 13:49:59 / stefan"
-!
-
-isSignalOrSignalSet
- "return true, if the receiver is either some kind of signal or a signalSet;
- true returned here - the method is redefined from Object."
-
- ^ true
-
- "Created: / 23.7.1999 / 13:49:59 / stefan"
-!
-
mayProceed
"return true, if the exception handler is allowed to proceed
the execution where the exception occured.
@@ -2030,8 +2028,8 @@
].
theSignal := signal.
- theSignal isSignal ifFalse:[
- self halt:'unexpected non-Signal in calling context'.
+ theSignal isExceptionCreator ifFalse:[
+ self halt:'unexpected non-ExceptionCreator in calling context'.
].
"/ 'search handler for: ' print. theSignal displayString printCR.
@@ -2273,6 +2271,6 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.67 2002-07-05 14:34:11 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.68 2002-07-15 09:42:29 stefan Exp $'
! !
GenericException initialize!