--- 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