equal
deleted
inserted
replaced
22 |
22 |
23 Exception comment:' |
23 Exception comment:' |
24 COPYRIGHT (c) 1993 by Claus Gittinger |
24 COPYRIGHT (c) 1993 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
26 |
26 |
27 $Header: /cvs/stx/stx/libbasic/Exception.st,v 1.18 1995-03-08 23:38:01 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/Exception.st,v 1.19 1995-04-11 14:49:09 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !Exception class methodsFor:'documentation'! |
30 !Exception class methodsFor:'documentation'! |
31 |
31 |
32 copyright |
32 copyright |
43 " |
43 " |
44 ! |
44 ! |
45 |
45 |
46 version |
46 version |
47 " |
47 " |
48 $Header: /cvs/stx/stx/libbasic/Exception.st,v 1.18 1995-03-08 23:38:01 claus Exp $ |
48 $Header: /cvs/stx/stx/libbasic/Exception.st,v 1.19 1995-04-11 14:49:09 claus Exp $ |
49 " |
49 " |
50 ! |
50 ! |
51 |
51 |
52 documentation |
52 documentation |
53 " |
53 " |
121 |
121 |
122 initialize |
122 initialize |
123 "setup the signal used to handle unhandled signals" |
123 "setup the signal used to handle unhandled signals" |
124 |
124 |
125 RecursiveExceptionSignal isNil ifTrue:[ |
125 RecursiveExceptionSignal isNil ifTrue:[ |
126 ErrorSignal isNil ifTrue:[super initialize]. |
|
127 |
|
128 RecursiveExceptionSignal := ErrorSignal newSignalMayProceed:false. |
126 RecursiveExceptionSignal := ErrorSignal newSignalMayProceed:false. |
129 RecursiveExceptionSignal nameClass:self message:#recursiveExceptionSignal. |
127 RecursiveExceptionSignal nameClass:self message:#recursiveExceptionSignal. |
130 RecursiveExceptionSignal notifierString:'recursive signal raise in handler' |
128 RecursiveExceptionSignal notifierString:'recursive signal raise in handler' |
131 ] |
129 ] |
132 ! ! |
130 ! ! |