diff -r 2f9ced7fddeb -r 226127373d77 UIObjectView.st
--- 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