Notification.st
branchjv
changeset 18086 33a050555eb1
parent 18062 014678b4657a
parent 15668 d91b53dd8c85
child 18091 abbcac10730e
--- a/Notification.st	Wed Aug 21 11:51:30 2013 +0100
+++ b/Notification.st	Fri Aug 23 11:44:50 2013 +0100
@@ -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 $'
 ! !