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.26 1995-08-23 17:50:18 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/Signal.st,v 1.27 1995-08-31 03:15:33 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.26 1995-08-23 17:50:18 claus Exp $ |
46 $Header: /cvs/stx/stx/libbasic/Signal.st,v 1.27 1995-08-31 03:15:33 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
146 !Signal class methodsFor:'instance creation'! |
146 !Signal class methodsFor:'instance creation'! |
147 |
147 |
148 new |
148 new |
149 "return a new signal" |
149 "return a new signal" |
150 |
150 |
151 ^ self basicNew notifierString:'signal' |
151 ^ (self basicNew) notifierString:'signal' |
152 ! ! |
152 ! ! |
153 |
153 |
154 !Signal class methodsFor:'Signal constants'! |
154 !Signal class methodsFor:'Signal constants'! |
155 |
155 |
156 noHandlerSignal |
156 noHandlerSignal |
199 message := aSelector |
199 message := aSelector |
200 ! |
200 ! |
201 |
201 |
202 mayProceed:aBoolean |
202 mayProceed:aBoolean |
203 "set/clear the signals ability to proceed. |
203 "set/clear the signals ability to proceed. |
204 This flag is not checked in the current version of |
204 This flag is (currently) not checked by the system; |
205 the debugger." |
205 be prepared for changes here, to eventually have nonProceedable |
|
206 signals refuse to let you continue execution." |
206 |
207 |
207 mayProceed := aBoolean |
208 mayProceed := aBoolean |
|
209 ! |
|
210 |
|
211 mayProceed |
|
212 "return the signals ability to proceed. |
|
213 This flag is (currently) not checked by the system; |
|
214 be prepared for changes here, to eventually have nonProceedable |
|
215 signals refuse to let you continue execution." |
|
216 |
|
217 ^ mayProceed |
208 ! |
218 ! |
209 |
219 |
210 parent:aSignal |
220 parent:aSignal |
211 "set the parent-signal of the receiver." |
221 "set the parent-signal of the receiver." |
212 |
222 |
352 123 size open |
362 123 size open |
353 ] |
363 ] |
354 " |
364 " |
355 ! |
365 ! |
356 |
366 |
357 ignore:aBlock |
367 ignoreIn:aBlock |
358 "evaluate the argument, aBlock. |
368 "evaluate the argument, aBlock. |
359 Ignore the receiver-signal during evaluation - i.e. simply |
369 Ignore the receiver-signal during evaluation - i.e. simply |
360 continue. This makes only sense for some signals, such as UserInterrupt |
370 continue. |
361 or AbortSignals, because continuing after an exception without any cleanup |
371 This makes only sense for some signals, such as UserInterrupt |
362 will often lead to followup-errors." |
372 or AbortSignal, because continuing after an exception without any cleanup |
|
373 often leads to followup-errors." |
363 |
374 |
364 ^ self handle:[:ex | ex proceed] do:aBlock. |
375 ^ self handle:[:ex | ex proceed] do:aBlock. |
365 |
376 |
366 " |
377 " |
367 Object messageNotUnderstoodSignal ignore:[ |
378 Object messageNotUnderstoodSignal ignoreIn:[ |
368 123 size open |
379 123 size open |
369 ] |
380 ] |
370 " |
381 " |
371 ! ! |
382 ! ! |
372 |
383 |