--- a/UIObjectView.st	Fri May 29 10:57:08 2009 +0200
+++ b/UIObjectView.st	Sun May 31 13:13:11 2009 +0200
@@ -575,13 +575,10 @@
     self testMode ifTrue:[^ false].
 
     anEvent isInputEvent ifFalse:[^ false].
-    anEvent isPointerEnterLeaveEvent ifTrue:[^ true. ^ false].
-    anEvent isKeyboardFocusEvent ifTrue:[^ true. ^ false].
 
     evView := anEvent view.
-    evView isNil ifTrue:[
-        ^ false
-    ].
+    evView isNil ifTrue:[ ^ false].
+
     (evView == self) ifTrue:[
         "/ new: check for a component to be hit by the event
         components notEmptyOrNil ifTrue:[
@@ -599,9 +596,12 @@
     (widget isComponentOf:self) ifFalse:[
         ^ false
     ].
-    (anEvent isButtonEvent or:[anEvent isKeyEvent])  ifFalse:[
-        ^ true
-    ].
+self halt.
+    "/ eat most of my events
+    anEvent isPointerEnterLeaveEvent ifTrue:[^ true. ^ false].
+    anEvent isKeyboardFocusEvent ifTrue:[^ true. ^ false].
+
+    (anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[ ^ true ].
 
     anEvent isButtonMotionEvent ifTrue:[
         "/ use current point - layout of underlaying view might change