--- a/Signal.st Tue Aug 03 09:34:34 1999 +0200
+++ b/Signal.st Tue Aug 03 09:38:42 1999 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,11 +11,11 @@
"
Object subclass:#Signal
- instanceVariableNames:'mayProceed notifierString nameClass message handlerBlock parent'
- classVariableNames:'NoHandlerSignal GenericSignal ProceedErrorSignal
- WrongProceedabilitySignal'
- poolDictionaries:''
- category:'Kernel-Exceptions'
+ instanceVariableNames:'mayProceed notifierString nameClass message handlerBlock parent'
+ classVariableNames:'NoHandlerSignal GenericSignal ProceedErrorSignal
+ WrongProceedabilitySignal'
+ poolDictionaries:''
+ category:'Kernel-Exceptions'
!
!Signal class methodsFor:'documentation'!
@@ -23,7 +23,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -87,43 +87,43 @@
[Instance variables:]
- mayProceed <Boolean> hint for the debugger - program may
- proceed (currently not honored by the
- debugger)
+ mayProceed <Boolean> hint for the debugger - program may
+ proceed (currently not honored by the
+ debugger)
- notifierString <String> error message to be output
+ notifierString <String> error message to be output
- nameClass <Class> for the printOn-implementation; nameClass
- is the class, to which message (below)
- should be sent to create the receiver.
+ nameClass <Class> for the printOn-implementation; nameClass
+ is the class, to which message (below)
+ should be sent to create the receiver.
- message <Symbol> for the printOn-implementation; message
- is the selector, which should be sent to
- nameClass (above) to create the receiver.
+ message <Symbol> for the printOn-implementation; message
+ is the selector, which should be sent to
+ nameClass (above) to create the receiver.
- handlerBlock <Block> if nonNil, a 1-arg block to be
- evaluated when no handler context is
- found. The block gets the exception
- object as argument. This will play the role
- of an on-stack handler.
+ handlerBlock <Block> if nonNil, a 1-arg block to be
+ evaluated when no handler context is
+ found. The block gets the exception
+ object as argument. This will play the role
+ of an on-stack handler.
[Class variables:]
- NoHandlerSignal <Signal> signal raised when no handler for a signal
- was found in raise.
- If this one is not handled either,
- Exceptions emergencyHandler will be evaluated
- instead (or a per-proces handler, if there
- is one).
+ NoHandlerSignal <Signal> signal raised when no handler for a signal
+ was found in raise.
+ If this one is not handled either,
+ Exceptions emergencyHandler will be evaluated
+ instead (or a per-proces handler, if there
+ is one).
[author:]
- Claus Gittinger
+ Claus Gittinger
[see also:]
- Exception
- SignalSet QuerySignal
- Object
- (``Exception handling and signals'': programming/exceptions.html)
+ Exception
+ SignalSet QuerySignal
+ Object
+ (``Exception handling and signals'': programming/exceptions.html)
"
! !
@@ -212,13 +212,13 @@
wrongProceedabilitySignal
"return the signal used to indicate that a signaler wants
to raise a nonproceedable signal proceedable.
- proceed a signal marked as nonproceedable.
The parameter for the exception raised by this signal is
the unproceedable signal."
^ WrongProceedabilitySignal
"Created: / 27.2.1998 / 14:24:19 / stefan"
+ "Modified: / 2.8.1999 / 12:15:21 / stefan"
! !
!Signal methodsFor:'accessing'!
@@ -401,10 +401,10 @@
"append a printed representation of the receiver on aStream"
nameClass notNil ifTrue:[
- aStream nextPutAll:nameClass name.
- aStream space.
- aStream nextPutAll:message.
- ^ self
+ aStream nextPutAll:nameClass name.
+ aStream space.
+ aStream nextPutAll:message.
+ ^ self
].
^ super printOn:aStream
! !
@@ -735,7 +735,7 @@
"
Object messageNotUnderstoodSignal catch:[
- 123 size open
+ 123 size open
]
"
!
@@ -837,6 +837,6 @@
!Signal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.60 1999-08-02 15:03:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.61 1999-08-03 07:38:42 stefan Exp $'
! !
Signal initialize!