--- a/ModalBox.st	Fri Apr 11 15:13:57 2008 +0200
+++ b/ModalBox.st	Fri Apr 11 15:16:49 2008 +0200
@@ -854,8 +854,8 @@
          try to the right of the untouchable view
         "
         newX := (aView origin x + aView width).
-        newX + width > device width ifTrue:[
-            newX := device width - width
+        newX + width > device usableExtent x ifTrue:[
+            newX := device usableExtent x - width
         ].
         pos x:newX.
 
@@ -913,7 +913,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.94 2008-04-11 13:13:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.95 2008-04-11 13:16:49 cg Exp $'
 ! !
 
 ModalBox initialize!