--- a/UIPainter.st Mon Apr 20 17:42:04 1998 +0200
+++ b/UIPainter.st Tue Apr 21 17:37:27 1998 +0200
@@ -2594,14 +2594,11 @@
topView label:'GUI Painter'.
painterView openInGroup:(topView windowGroup).
- painterView open.
- painterView application:self.
-
painterView application:self.
+
selectionPanel := UISelectionPanel new.
selectionPanel allButOpenInterface:#windowSpec.
selectionPanel window openInGroup:(topView windowGroup).
-
selectionPanel openWindow.
selectionPanel masterApplication:self.
@@ -2628,7 +2625,7 @@
openOnClass:aClass andSelector:aSelector
"opens the GUI Painter on aClass and aSelector"
- |painter|
+ |painter window|
aClass isNil ifTrue:[
(self confirm:'No class given to the GUI Painter (class was probably renamed?)\\Open anyway (to create a new window spec) ?' withCRs)
@@ -2637,13 +2634,17 @@
self openInterface.
+ window := self window.
+ [window realized] whileFalse:[Delay waitForSeconds:0.01].
+
aClass notNil ifTrue:[
painter := self painter.
self setClass:aClass selector:aSelector.
+
(aClass respondsTo:aSelector) ifTrue:[
painter setupFromSpec:(aClass perform:aSelector).
]
- ]
+ ].
!
postOpenWith: aBuilder