ModalBox.st
changeset 7133 56c7a7be25cd
parent 6777 8527109b401d
child 7264 84b62bae4dc0
--- a/ModalBox.st	Mon Feb 08 14:00:05 2016 +0100
+++ b/ModalBox.st	Mon Feb 08 14:01:09 2016 +0100
@@ -218,6 +218,8 @@
 "/    how ~~ #fullyVisible ifTrue:[
 "/        self raise
 "/    ]
+
+     super visibilityChange:how.
 !
 
 xxxpointerEnter:state x:x y:y
@@ -775,13 +777,12 @@
 showAtPointer
     "make myself visible at mouse pointer shifted to have
      convenient button under cursor. self positionOffset should
-     return that offset (usually redefined, since we dont know here,
+     return that offset (usually redefined, since we don't know here,
      which button should be under cursor)."
 
     |first pointerPosition positionOffset pos monitorBounds alignedPos|
 
     "/ ****** MULTI SCREEN
-
     pointerPosition := self graphicsDevice pointerPosition.
 
     self fixSize.
@@ -809,8 +810,11 @@
     first := true.
     self openModal:[
         (first and:[shown]) ifTrue:[
-"/            self origin:pos.
             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.
         ].
         true
@@ -907,11 +911,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.112 2015-02-20 13:19:24 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.112 2015-02-20 13:19:24 cg Exp $'
+    ^ '$Header$'
 ! !