--- a/EventListener.st Mon Mar 23 08:22:24 2009 +0100
+++ b/EventListener.st Mon Mar 23 19:54:46 2009 +0100
@@ -194,12 +194,15 @@
If false is returned, the event is processed as usual.
Here, the event is dispatched into one of the button*/key* etc. methods"
+ |eventHasBeenProcessed|
+
+ eventHasBeenProcessed := false.
Error handle:[:ex |
('Listener [info]: error while processing event: ' , ex description) infoPrintCR.
- ^ false
] do:[
- ^ ev dispatchWithViewArgumentTo:self
- ]
+ eventHasBeenProcessed := ev dispatchWithViewArgumentTo:self
+ ].
+ ^ eventHasBeenProcessed
!
unlisten
@@ -211,5 +214,5 @@
!EventListener class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.25 2008-07-09 12:20:38 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.26 2009-03-23 18:54:46 cg Exp $'
! !