--- a/WindowGroup.st	Fri Oct 12 19:06:23 2018 +0200
+++ b/WindowGroup.st	Fri Oct 12 19:07:47 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1638,16 +1640,25 @@
     ].
 
     preEventHook notNil ifTrue:[
-        (preEventHook processEvent:anEvent) ifTrue:[ ^ true ].
+        (preEventHook processEvent:anEvent) ifTrue:[
+            "/ Transcript showCR:('event was eaten by %1' bindWith:preEventHook).
+            ^ true 
+        ].
     ].
     preEventHooks notNil ifTrue:[
         preEventHooks copy do:[:eachHook |
             "/ can only be nil if changed, while enumerating...
             eachHook notNil ifTrue:[
                 eachHook isBlock ifTrue:[
-                    (eachHook value:anEvent) ifTrue:[ ^ true ].
+                    (eachHook value:anEvent) ifTrue:[ 
+                        "/ Transcript showCR:('event was eaten by %1' bindWith:eachHook).
+                        ^ true 
+                    ].
                 ] ifFalse:[
-                    (eachHook processEvent:anEvent) ifTrue:[ ^ true ].
+                    (eachHook processEvent:anEvent) ifTrue:[ 
+                        "/ Transcript showCR:('event was eaten by %1' bindWith:eachHook).
+                        ^ true 
+                    ].
                 ]
             ]
         ]