equal
deleted
inserted
replaced
20 |
20 |
21 Signal comment:' |
21 Signal comment:' |
22 COPYRIGHT (c) 1993 by Claus Gittinger |
22 COPYRIGHT (c) 1993 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libbasic/Signal.st,v 1.18 1995-02-16 16:24:46 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/Signal.st,v 1.19 1995-03-08 23:39:56 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !Signal class methodsFor:'documentation'! |
28 !Signal class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libbasic/Signal.st,v 1.18 1995-02-16 16:24:46 claus Exp $ |
46 $Header: /cvs/stx/stx/libbasic/Signal.st,v 1.19 1995-03-08 23:39:56 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
135 |
135 |
136 initialize |
136 initialize |
137 "setup the signal used to handle unhandled signals" |
137 "setup the signal used to handle unhandled signals" |
138 |
138 |
139 NoHandlerSignal isNil ifTrue:[ |
139 NoHandlerSignal isNil ifTrue:[ |
140 Object initialize. |
140 ErrorSignal isNil ifTrue:[super initialize]. |
141 |
141 |
142 NoHandlerSignal := Object errorSignal newSignalMayProceed:true. |
142 NoHandlerSignal := ErrorSignal newSignalMayProceed:true. |
143 NoHandlerSignal nameClass:self message:#noHandlerSignal. |
143 NoHandlerSignal nameClass:self message:#noHandlerSignal. |
144 NoHandlerSignal notifierString:'unhandled exception'. |
144 NoHandlerSignal notifierString:'unhandled exception'. |
145 |
|
146 ] |
145 ] |
147 ! ! |
146 ! ! |
148 |
147 |
149 !Signal class methodsFor:'instance creation'! |
148 !Signal class methodsFor:'instance creation'! |
150 |
149 |