--- a/ModalBox.st	Tue Nov 17 14:28:46 2009 +0100
+++ b/ModalBox.st	Tue Nov 17 14:30:07 2009 +0100
@@ -447,7 +447,7 @@
             containsPoint:device pointerPosition)
         ifFalse:[newLeft := left].
         newLeft < 0 ifTrue:[newLeft := 0].
-        screenWidth := device usableExtent x.
+        screenWidth := device usableWidth.
         newLeft + newExtent x > screenWidth ifTrue:[
             newLeft := screenWidth - newExtent x
         ].
@@ -839,8 +839,8 @@
          try to the right of the untouchable view
         "
         newX := (aView origin x + aView width).
-        newX + width > device usableExtent x ifTrue:[
-            newX := device usableExtent x - width
+        newX + width > device usableWidth ifTrue:[
+            newX := device usableWidth - width
         ].
         pos x:newX.
 
@@ -898,11 +898,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.101 2009-11-11 01:56:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.102 2009-11-17 13:30:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.101 2009-11-11 01:56:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.102 2009-11-17 13:30:07 cg Exp $'
 ! !
 
 ModalBox initialize!