class: Notification
removed: #LATERdoCallHandler:
comment/format in: #documentation
--- 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"
-
- <context: #return>
- <exception: #raise>
-
- |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 $'
! !