--- a/PopUpView.st	Thu Jan 16 15:32:54 2014 +0100
+++ b/PopUpView.st	Thu Jan 16 15:32:56 2014 +0100
@@ -60,10 +60,10 @@
      The value returned here is usually ignored, and
      the value from preferredExtent taken instead."
 
-    |screen|
+    |display|
 
-    screen := Screen current.
-    ^ (screen width // 3) @ (screen height // 3)
+    display := Screen current.
+    ^ (display monitorBoundsAt:display pointerPosition) extent // 3.
 
     "Modified: 5.7.1996 / 13:55:08 / cg"
 !
@@ -446,10 +446,10 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.60 2013-06-25 23:04:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.61 2014-01-16 14:32:56 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.60 2013-06-25 23:04:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.61 2014-01-16 14:32:56 stefan Exp $'
 ! !