--- a/ModalBox.st Fri Sep 14 18:14:05 2018 +0200
+++ b/ModalBox.st Fri Sep 14 18:15:20 2018 +0200
@@ -847,11 +847,16 @@
self openModal:[
(first and:[shown]) ifTrue:[
first := false.
- "in Linux - SuSe Tumbleweed 2016-01 the Delay is required, otherwise the pointer
- is shown relative to the root window. No idea why this is needed. Maybe the
- window manager (kwin) does something."
- Delay waitForMilliseconds:10.
- "/ self setPointerPosition:positionOffset.
+ false ifTrue:[
+ "/ cg: no longer move the mouse to the OK button!!
+ "/ the mouse will fall down the desk if we do that too often... ;-)
+
+ "in Linux - SuSe Tumbleweed 2016-01 the Delay is required, otherwise the pointer
+ is shown relative to the root window. No idea why this is needed.
+ Maybe the window manager (kwin) does something."
+ Delay waitForMilliseconds:10.
+ self setPointerPosition:positionOffset.
+ ].
].
true
].
@@ -869,7 +874,7 @@
"
"Modified: / 22-10-2010 / 11:20:05 / cg"
- "Modified: / 14-09-2018 / 18:00:26 / Claus Gittinger"
+ "Modified (format): / 14-09-2018 / 18:15:13 / Claus Gittinger"
!
showAtPointerNotCovering:aView