#DOCUMENTATION by cg
class: WindowGroup
comment/format in:
#executePreEventHooksFor:
#processEventsWithModalGroup:
--- 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
+ ].
]
]
]