--- a/SimpleView.st Thu Mar 07 15:10:23 2019 +0100
+++ b/SimpleView.st Thu Mar 07 15:11:48 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -7847,13 +7849,14 @@
"/ "/ now, flush all pointer events
"/ sensor flushMotionEventsFor:nil
"/ ].
+
aCursorOrNil notNil ifTrue:[
- cursor := (aCursorOrNil onDevice:device).
- ^ device grabPointerInView:self withCursor:cursor
- ].
- ^ device grabPointerInView:self
+ cursor := aCursorOrNil onDevice:device.
+ ].
+ ^ device grabPointerInView:self withCursor:cursor
"Modified (comment): / 06-03-2018 / 20:36:01 / mawalch"
+ "Modified: / 07-03-2019 / 14:47:21 / Stefan Vogel"
!
ungrabKeyboard