equal
deleted
inserted
replaced
622 anEvent isKeyboardFocusEvent ifTrue:[^ true. ^ false]. |
622 anEvent isKeyboardFocusEvent ifTrue:[^ true. ^ false]. |
623 |
623 |
624 (anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[ ^ true ]. |
624 (anEvent isButtonEvent or:[anEvent isKeyEvent]) ifFalse:[ ^ true ]. |
625 |
625 |
626 anEvent isButtonMotionEvent ifTrue:[ |
626 anEvent isButtonMotionEvent ifTrue:[ |
627 "/ use current point - layout of underlaying view might change |
627 "/ use current point - layout of underlying view might change |
628 "/ and computation dependent on origin is wrong |
628 "/ and computation dependent on origin is wrong |
629 p := self sensor mousePoint. |
629 p := self sensor mousePoint. |
630 p := device translatePoint:p fromView:nil toView:self. |
630 p := device translatePoint:p fromView:nil toView:self. |
631 ] ifFalse:[ |
631 ] ifFalse:[ |
632 p := (anEvent x) @ (anEvent y). |
632 p := (anEvent x) @ (anEvent y). |
636 "/ patch the event |
636 "/ patch the event |
637 anEvent x:p x. |
637 anEvent x:p x. |
638 anEvent y:p y. |
638 anEvent y:p y. |
639 anEvent view:self. |
639 anEvent view:self. |
640 ^ false. |
640 ^ false. |
|
641 |
|
642 "Modified (format): / 05-03-2019 / 23:18:57 / Claus Gittinger" |
641 ! |
643 ! |
642 |
644 |
643 redrawX:nx y:ny width:nw height:nh |
645 redrawX:nx y:ny width:nw height:nh |
644 |redrawFrame| |
646 |redrawFrame| |
645 |
647 |