# HG changeset patch
# User ca
# Date 893173047 -7200
# Node ID 212bc7e467650a2d3d6f342a1c0487a077e61b6e
# Parent  43a9a195b0f3f7e3aa200bcaf606aff9e28f62cd
openOnClass....
    wait until realized

diff -r 43a9a195b0f3 -r 212bc7e46765 UIPainter.st
--- 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