--- a/GraphicsDevice.st	Tue May 10 15:09:41 2016 +0200
+++ b/GraphicsDevice.st	Wed May 11 10:18:01 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
 	      All Rights Reserved
@@ -144,14 +142,14 @@
 
     "/ local listeners ...
     eventListeners notNil ifTrue:[
-	eventListeners do:[:aListener |
-	    anyListenerReturnedTrue := anyListenerReturnedTrue |
-				       (aListener processEvent:anEvent)
-	]
+        eventListeners do:[:aListener |
+            "/ notice: evaluating or here; all listeners get a chance
+            anyListenerReturnedTrue := anyListenerReturnedTrue |
+                                       (aListener processEvent:anEvent)
+        ]
     ].
 
     ^ anyListenerReturnedTrue.
-
 ! !
 
 !GraphicsDevice methodsFor:'misc'!