--- 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 $'
 ! !