--- a/ModalBox.st	Tue Nov 10 17:35:01 2009 +0100
+++ b/ModalBox.st	Tue Nov 10 20:40:58 2009 +0100
@@ -781,11 +781,13 @@
      return that offset (usually redefined, since we dont know here,
      which button should be under cursor)."
 
-    |first positionOffset|
+    |first positionOffset pos|
 
     self fixSize.
     positionOffset := self positionOffset.
-    self fixPosition:(device pointerPosition - positionOffset).
+    pos := device pointerPosition - positionOffset.
+    self fixPosition:pos.
+    pos := self origin.
 
     "We have got a problem here: 
         X11 adds some window decoration. The size of the decoration is only known
@@ -798,6 +800,7 @@
     first := true.
     self openModal:[
         (first and:[shown]) ifTrue:[
+            self origin:pos.
             first := false.
             self setPointerPosition:positionOffset.
         ].
@@ -895,11 +898,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.99 2009-11-06 17:51:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.100 2009-11-10 19:40:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.99 2009-11-06 17:51:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.100 2009-11-10 19:40:58 cg Exp $'
 ! !
 
 ModalBox initialize!