ModalBox.st
changeset 8465 dfd6ad20c612
parent 8464 0af00aa05d74
child 8732 2126b6c5f654
--- 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