equal
deleted
inserted
replaced
573 |evView widget p| |
573 |evView widget p| |
574 |
574 |
575 self testMode ifTrue:[^ false]. |
575 self testMode ifTrue:[^ false]. |
576 |
576 |
577 anEvent isInputEvent ifFalse:[^ false]. |
577 anEvent isInputEvent ifFalse:[^ false]. |
578 anEvent isPointerEnterLeaveEvent ifTrue:[^ true. ^ false]. |
|
579 anEvent isKeyboardFocusEvent ifTrue:[^ true. ^ false]. |
|
580 |
578 |
581 evView := anEvent view. |
579 evView := anEvent view. |
582 evView isNil ifTrue:[ |
580 evView isNil ifTrue:[ ^ false]. |
583 ^ false |
581 |
584 ]. |
|
585 (evView == self) ifTrue:[ |
582 (evView == self) ifTrue:[ |
586 "/ new: check for a component to be hit by the event |
583 "/ new: check for a component to be hit by the event |
587 components notEmptyOrNil ifTrue:[ |
584 components notEmptyOrNil ifTrue:[ |
588 p := (anEvent x @ anEvent y). |
585 p := (anEvent x @ anEvent y). |
589 |
586 |
597 ]. |
594 ]. |
598 |
595 |
599 (widget isComponentOf:self) ifFalse:[ |
596 (widget isComponentOf:self) ifFalse:[ |
600 ^ false |
597 ^ false |
601 ]. |
598 ]. |
602 (anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[ |
599 self halt. |
603 ^ true |
600 "/ eat most of my events |
604 ]. |
601 anEvent isPointerEnterLeaveEvent ifTrue:[^ true. ^ false]. |
|
602 anEvent isKeyboardFocusEvent ifTrue:[^ true. ^ false]. |
|
603 |
|
604 (anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[ ^ true ]. |
605 |
605 |
606 anEvent isButtonMotionEvent ifTrue:[ |
606 anEvent isButtonMotionEvent ifTrue:[ |
607 "/ use current point - layout of underlaying view might change |
607 "/ use current point - layout of underlaying view might change |
608 "/ and computation dependent on origin is wrong |
608 "/ and computation dependent on origin is wrong |
609 p := self sensor mousePoint. |
609 p := self sensor mousePoint. |