--- a/UIPainter.st	Tue Jul 13 21:04:49 1999 +0200
+++ b/UIPainter.st	Tue Jul 13 21:20:48 1999 +0200
@@ -2936,7 +2936,8 @@
 postOpenWith: aBuilder
     "sets the initial selection"
 
-    |myWindow canvasWindow canvasOrg galleryWindow myOrg myCorner|
+    |myWindow canvasWindow canvasOrg galleryWindow 
+     galleryOrg myOrg myCorner|
 
     super postOpenWith: aBuilder.
     treeView selection: #(1).
@@ -2950,23 +2951,19 @@
     myOrg := myWindow origin.
     myCorner := myWindow corner.
 
-    (myCorner x + canvasWindow width + 20) <= device width ifTrue:[
-        canvasOrg := (myCorner x + canvasWindow width) @ (myOrg y).
-    ] ifFalse:[
-        canvasOrg := 0@0.
-        myOrg := (device width - myWindow width - 20) @ 0.
-        myWindow origin:myOrg.
-    ].
+    canvasOrg := 0@0.
+    myOrg := (device width - myWindow width - 20) @ 0.
+    galleryOrg := (device width - galleryWindow width - 20) 
+                  @ 
+                  ((myWindow height + 20) min:(device height - galleryWindow height - 20)).
+    myWindow origin:myOrg.
 
     canvasWindow origin:canvasOrg.
+    galleryWindow origin:galleryOrg.
 
     galleryWindow raise.
     canvasWindow raise.
 
-    galleryWindow 
-        origin:((myOrg corner:myCorner) topCenter x - (galleryWindow width // 2)) rounded
-               @
-               (device height - galleryWindow height - 20).
 
     "Modified: / 22.8.1998 / 17:41:34 / cg"
 ! !