equal
deleted
inserted
replaced
339 ! |
339 ! |
340 |
340 |
341 isHandled |
341 isHandled |
342 "return true, if there is a handler for the receiver signal. |
342 "return true, if there is a handler for the receiver signal. |
343 Raising an unhandled signal will usually lead into the debugger, |
343 Raising an unhandled signal will usually lead into the debugger, |
344 but can be cought globally by setting Exceptions EmergencyHandler." |
344 but can be caught globally by setting Exceptions EmergencyHandler." |
345 |
345 |
346 ^ self isHandledIn:(thisContext sender). |
346 ^ self isHandledIn:(thisContext sender). |
347 ! |
347 ! |
348 |
348 |
349 isHandledIn:aContext |
349 isHandledIn:aContext |
658 aBlock." |
658 aBlock." |
659 |
659 |
660 ^ aBlock value "the real logic is in raise/Exception" |
660 ^ aBlock value "the real logic is in raise/Exception" |
661 |
661 |
662 " |
662 " |
663 the first open will be cought; the second not: |
663 the first open will be caught; the second not: |
664 |
664 |
665 |o1 o2| |
665 |o1 o2| |
666 |
666 |
667 o1 := 123. |
667 o1 := 123. |
668 o2 := nil. |
668 o2 := nil. |
699 ! ! |
699 ! ! |
700 |
700 |
701 !Signal class methodsFor:'documentation'! |
701 !Signal class methodsFor:'documentation'! |
702 |
702 |
703 version |
703 version |
704 ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.41 1997-03-25 11:42:00 cg Exp $' |
704 ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.42 1997-06-16 18:21:41 cg Exp $' |
705 ! ! |
705 ! ! |
706 Signal initialize! |
706 Signal initialize! |