equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
7845 "/ device sync. |
7847 "/ device sync. |
7846 "/ "/ now all events have been received. |
7848 "/ "/ now all events have been received. |
7847 "/ "/ now, flush all pointer events |
7849 "/ "/ now, flush all pointer events |
7848 "/ sensor flushMotionEventsFor:nil |
7850 "/ sensor flushMotionEventsFor:nil |
7849 "/ ]. |
7851 "/ ]. |
|
7852 |
7850 aCursorOrNil notNil ifTrue:[ |
7853 aCursorOrNil notNil ifTrue:[ |
7851 cursor := (aCursorOrNil onDevice:device). |
7854 cursor := aCursorOrNil onDevice:device. |
7852 ^ device grabPointerInView:self withCursor:cursor |
7855 ]. |
7853 ]. |
7856 ^ device grabPointerInView:self withCursor:cursor |
7854 ^ device grabPointerInView:self |
|
7855 |
7857 |
7856 "Modified (comment): / 06-03-2018 / 20:36:01 / mawalch" |
7858 "Modified (comment): / 06-03-2018 / 20:36:01 / mawalch" |
|
7859 "Modified: / 07-03-2019 / 14:47:21 / Stefan Vogel" |
7857 ! |
7860 ! |
7858 |
7861 |
7859 ungrabKeyboard |
7862 ungrabKeyboard |
7860 "ungrab the keyboard - but only if I was the grabber" |
7863 "ungrab the keyboard - but only if I was the grabber" |
7861 |
7864 |