diff -r f3f5c92930c9 -r ada18c876301 UIPainter.st --- a/UIPainter.st Tue Jul 13 20:51:52 1999 +0200 +++ b/UIPainter.st Tue Jul 13 21:04:49 1999 +0200 @@ -2433,7 +2433,7 @@ raiseUIView:aView "raise the view which is an application or top view" - aView map. + aView remap. aView bePartner. ! @@ -2795,7 +2795,7 @@ openInterface:aSymbol "opens the interface on the selector aSymbol" - |cls painterView painter topView| + |cls painterView painter topView galleryWindow| modified := false. @@ -2849,7 +2849,7 @@ selectionPanel := UISelectionPanel new. selectionPanel allButOpenInterface:#windowSpec. - selectionPanel window openInGroup:(topView windowGroup). + (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup). selectionPanel openWindow. selectionPanel masterApplication:self. @@ -2861,10 +2861,10 @@ topView bePartner. painterView bePartner. - selectionPanel window bePartner. - - selectionPanel window iconLabel:'GUI Gallery'. - selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). + galleryWindow bePartner. + + galleryWindow iconLabel:'GUI Gallery'. + galleryWindow icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). painterView topView raise. @@ -2950,17 +2950,18 @@ myOrg := myWindow origin. myCorner := myWindow corner. - myCorner x + canvasWindow width <= device width ifTrue:[ - canvasOrg := (myCorner x + canvasWindow width) @ myOrg y. + (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. ]. + canvasWindow origin:canvasOrg. + galleryWindow raise. canvasWindow raise. - canvasWindow origin:canvasOrg. galleryWindow origin:((myOrg corner:myCorner) topCenter x - (galleryWindow width // 2)) rounded