equal
deleted
inserted
replaced
1587 delegatedEvent arguments:(ev arguments shallowCopy). |
1587 delegatedEvent arguments:(ev arguments shallowCopy). |
1588 delegatedEvent x:-1; y:-1. |
1588 delegatedEvent x:-1; y:-1. |
1589 |
1589 |
1590 focusView |
1590 focusView |
1591 dispatchEvent:delegatedEvent |
1591 dispatchEvent:delegatedEvent |
|
1592 type:delegatedEvent type |
|
1593 arguments:(delegatedEvent arguments) |
1592 withFocusOn:nil |
1594 withFocusOn:nil |
1593 delegate:doDelegate. |
1595 delegate:doDelegate. |
1594 ^ self |
1596 ^ self |
1595 ]. |
1597 ]. |
1596 |
1598 |
1651 |
1653 |
1652 " |
1654 " |
1653 if there is a controller, that one gets all user events |
1655 if there is a controller, that one gets all user events |
1654 " |
1656 " |
1655 eventReceiver := self. |
1657 eventReceiver := self. |
1656 (controller := self controller) notNil ifTrue:[ |
1658 ((controller := self controller) notNil and:[controller ~~ eventReceiver]) ifTrue:[ |
1657 (isKeyEvent |
1659 (isKeyEvent |
1658 or:[isButtonEvent |
1660 or:[isButtonEvent |
1659 or:[isMouseWheelEvent |
1661 or:[isMouseWheelEvent |
1660 or:[isPointerEvent |
1662 or:[isPointerEvent |
1661 or:[(type == #focusIn) |
1663 or:[(type == #focusIn) |
1686 ] |
1688 ] |
1687 ]. |
1689 ]. |
1688 |
1690 |
1689 eventReceiver perform:selector withArguments:argArray |
1691 eventReceiver perform:selector withArguments:argArray |
1690 |
1692 |
1691 "Created: / 20.5.1998 / 22:46:25 / cg" |
1693 "Created: / 20-05-1998 / 22:46:25 / cg" |
1692 "Modified: / 21.5.1999 / 19:55:31 / cg" |
1694 "Modified: / 17-08-2017 / 09:47:01 / cg" |
1693 ! |
1695 ! |
1694 |
1696 |
1695 dispatchEvent:event withFocusOn:focusViewOrNil |
1697 dispatchEvent:event withFocusOn:focusViewOrNil |
1696 "dispatch the event" |
1698 "dispatch the event" |
1697 |
1699 |