# HG changeset patch # User Claus Gittinger # Date 1377174824 -7200 # Node ID d91b53dd8c85599c2e934ce7c34cc13d074358d7 # Parent 3892295febb91547c34120b4d45978187a76c998 class: Notification removed: #LATERdoCallHandler: comment/format in: #documentation diff -r 3892295febb9 -r d91b53dd8c85 Notification.st --- a/Notification.st Thu Aug 22 10:42:13 2013 +0200 +++ b/Notification.st Thu Aug 22 14:33:44 2013 +0200 @@ -53,7 +53,7 @@ Stefan Vogel [see also:] - Signal QuerySignal + Signal QuerySignal Query " ! @@ -330,33 +330,6 @@ ^ false ! ! -!Notification methodsFor:'private'! - -LATERdoCallHandler:aHandlerBlock -"SV: Have to think about..." - "call the handler proper - - an extra method is needed to have a raise-marked context around. - (see implementation of #reject and #proceed). - Redefined from GenericException to do a proceed here" - - - - - |val| - - aHandlerBlock argumentCount == 0 ifTrue:[ - "/ 0-arg handler - not interested in the ex - object - val := aHandlerBlock value - ] ifFalse:[ - "/ 1-arg handler - pass myself as exception argument - val := aHandlerBlock value:self. - ]. - - "handler fall through - is just like a #proceedWith:(aHandlerBlock value)" - - self proceedWith:val -! ! - !Notification methodsFor:'queries'! query @@ -375,11 +348,11 @@ !Notification class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.30 2013-05-27 14:12:02 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.31 2013-08-22 12:33:44 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.30 2013-05-27 14:12:02 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.31 2013-08-22 12:33:44 cg Exp $' ! !