equal
deleted
inserted
replaced
572 |
572 |
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]. |
|
578 |
|
579 evView := anEvent view. |
577 evView := anEvent view. |
580 evView isNil ifTrue:[ ^ false]. |
578 evView isNil ifTrue:[ ^ false]. |
581 |
579 |
582 (evView == self) ifTrue:[ |
580 (evView == self) ifTrue:[ |
583 "/ new: check for a component to be hit by the event |
581 "/ new: check for a component to be hit by the event |
|
582 |
584 components notEmptyOrNil ifTrue:[ |
583 components notEmptyOrNil ifTrue:[ |
585 p := (anEvent x @ anEvent y). |
584 anEvent x notNil ifTrue:[ |
586 |
585 p := (anEvent x @ anEvent y). |
587 widget := components detect:[:c | c bounds containsPoint:p ] ifNone:nil. |
586 widget := components detect:[:c | c bounds containsPoint:p ] ifNone:nil. |
|
587 ]. |
588 ]. |
588 ]. |
589 widget isNil ifTrue:[ |
589 widget isNil ifTrue:[ |
590 ^ false |
590 ^ false |
591 ]. |
591 ]. |
592 ] ifFalse:[ |
592 ] ifFalse:[ |