--- 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$'
! !