--- a/SimpleView.st	Fri Oct 22 15:05:46 2010 +0200
+++ b/SimpleView.st	Fri Oct 22 15:19:03 2010 +0200
@@ -2905,8 +2905,8 @@
             newTop := newTop max:deviceTop.
         ] ifTrue:[
             "/ origin is not; corner is in
-            newLeft := deviceLeft.
-            newTop := deviceTop.
+            newLeft := (deviceLeft max:newLeft).
+            newTop := (deviceTop max:newTop).
         ].
     ] ifTrue:[
         "/ notice, the position-dependent query: if there is a higher secondary screen,
@@ -2925,7 +2925,7 @@
         self origin:newLeft @ newTop
     ].
 
-    "Modified: / 22-10-2010 / 15:05:25 / cg"
+    "Modified: / 22-10-2010 / 15:18:47 / cg"
 !
 
 makeRoundViewShapeWithBorder:bw
@@ -10700,11 +10700,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.670 2010-10-22 13:05:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.671 2010-10-22 13:19:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.670 2010-10-22 13:05:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.671 2010-10-22 13:19:03 cg Exp $'
 ! !
 
 SimpleView initialize!