--- 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'!