--- a/StandardSystemView.st	Thu Feb 04 11:30:18 2010 +0100
+++ b/StandardSystemView.st	Fri Feb 05 17:09:16 2010 +0100
@@ -1406,14 +1406,16 @@
 physicalCreate
     "common code for create & recreate"
 
-    |lbl iconValue icn icnMask windowClassNameString|
+    |lbl iconValue icn icnMask windowClassNameString org|
 
     "/ adjust origin, if too large
     left + width > device width ifTrue:[
         left := (device usableWidth - width) max:0
     ].
+    org := (left @ top).
     top + height > device height ifTrue:[
-        top := (device usableHeight - height) max:0
+        top := ((device usableHeightAt:org) - height) max:0.
+        org := (left @ top).
     ].
 
     lbl := self windowLabelFor:label.
@@ -1434,7 +1436,7 @@
     drawableId := device 
                       createWindowFor:self 
                       type:(self windowType)
-                      origin:(left @ top)
+                      origin:org
                       extent:(width @ height)
                       minExtent:minExtent
                       maxExtent:maxExtent
@@ -1452,8 +1454,7 @@
     "/ give global listeners a chance to track views
     WindowSensor postViewCreateNotification:self.
 
-    self extentChangedFlag:false.
-    self originChangedFlag:false.
+    self originChangedFlag:false extentChangedFlag:false.
 
 "/    (borderColor notNil and:[borderColor ~= Black]) ifTrue:[
 "/        self setBorderColor
@@ -1549,11 +1550,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.192 2009-12-03 10:46:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.193 2010-02-05 16:09:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.192 2009-12-03 10:46:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.193 2010-02-05 16:09:16 cg Exp $'
 ! !
 
 StandardSystemView initialize!