--- a/UIObjectView.st Mon Jun 01 08:36:46 2009 +0200
+++ b/UIObjectView.st Fri Jun 05 20:57:48 2009 +0200
@@ -574,17 +574,17 @@
self testMode ifTrue:[^ false].
- anEvent isInputEvent ifFalse:[^ false].
-
evView := anEvent view.
evView isNil ifTrue:[ ^ false].
(evView == self) ifTrue:[
"/ new: check for a component to be hit by the event
+
components notEmptyOrNil ifTrue:[
- p := (anEvent x @ anEvent y).
-
- widget := components detect:[:c | c bounds containsPoint:p ] ifNone:nil.
+ anEvent x notNil ifTrue:[
+ p := (anEvent x @ anEvent y).
+ widget := components detect:[:c | c bounds containsPoint:p ] ifNone:nil.
+ ].
].
widget isNil ifTrue:[
^ false