--- a/UIObjectView.st	Fri Jun 05 20:57:48 2009 +0200
+++ b/UIObjectView.st	Fri Jun 05 21:03:44 2009 +0200
@@ -574,6 +574,8 @@
 
     self testMode ifTrue:[^ false].
 
+    anEvent isInputEvent ifFalse:[^ false].
+
     evView := anEvent view.
     evView isNil ifTrue:[ ^ false].