diff -r 8f4b6117ccaa -r 42a2a4494281 UIPainter.st
--- a/UIPainter.st	Wed May 28 12:35:20 1997 +0200
+++ b/UIPainter.st	Wed May 28 13:32:48 1997 +0200
@@ -974,7 +974,7 @@
 openInterface
     "open interfaces
     "
-    |cls painter|
+    |painterView painter cls topView|
 
     aspects := IdentityDictionary new.
 
@@ -997,12 +997,37 @@
         (specSelector notNil ifTrue:[specSelector]
                             ifFalse:[#windowSpec]) asValue
     ).
-    painter := UIPainterView new.
+
+    painterView := StandardSystemView new.
+    painterView label:'unnamed canvas'.
+    painterView extent:300@300.
+
+    painter := UIPainterView in:painterView.
     painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
+
     objectList := painter listHolder.
     objectList addDependent:self.
+
     super openInterface.
 
+    topView := self window.
+    topView bePartner.
+    topView label:'Interface Builder'.
+    topView icon:(Image fromFile:'bitmaps/Builder.xbm' resolution:100).
+
+    painterView openInGroup:(topView windowGroup).
+    painterView bePartner.
+    painterView application:self.
+    painterView open.
+
+    painterView application:self.
+    selectionPanel := UISelectionPanel newDefault.
+    selectionPanel allButOpenInterface:#windowSpec.
+    selectionPanel window openInGroup:(topView windowGroup).
+    selectionPanel window bePartner.
+    selectionPanel openWindow.
+    selectionPanel window application:self.
+
 !
 
 openNewWindowCanvas
@@ -1036,34 +1061,6 @@
     painter methodName:aSelector.
     painter setupFromSpec:(aClass perform:aSelector).
 
-!
-
-postOpenWith:aBuilder
-    "open all subApplications
-    "
-    |pview window|
-
-    window := self window.
-    window bePartner.
-    window label:'Interface Builder'.
-    window icon:(Image fromFile:'bitmaps/Builder.xbm' resolution:100).
-
-    selectionPanel := UISelectionPanel newDefault.
-    selectionPanel allButOpenInterface:#windowSpec.
-    selectionPanel window openInGroup:(window windowGroup).
-    selectionPanel window bePartner.
-    selectionPanel openWindow.
-    selectionPanel window application:self.
-
-    pview := StandardSystemView new.
-    pview label:'unnamed canvas'.
-    pview extent:300@300.
-    pview add:(self painter).
-    pview openInGroup:(window windowGroup).
-    pview bePartner.
-    pview open.
-    pview application:self.
-
 ! !
 
 !UIPainter methodsFor:'user interaction - dialog'!