--- a/GraphicsDevice.st Wed May 11 09:38:32 2016 +0200
+++ b/GraphicsDevice.st Thu May 12 09:17:05 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
All Rights Reserved
@@ -196,14 +194,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'!