# HG changeset patch
# User tz
# Date 901211851 -7200
# Node ID 12e73e6c57b476e6be5415643523d5bbffd520f8
# Parent  931b23146b3d7c009da1d95edd2d98f11bcdcf54
do open building editors after defining first new app class

diff -r 931b23146b3d -r 12e73e6c57b4 UIPainter.st
--- a/UIPainter.st	Thu Jul 23 16:13:10 1998 +0200
+++ b/UIPainter.st	Thu Jul 23 18:37:31 1998 +0200
@@ -1924,7 +1924,8 @@
     |cls loadedFromClass loadedFromSpec editor tableColumnsOrSelector|
 
     (cls := self resolveName:specClass) isNil ifTrue:[
-        self askForSaving ifFalse: [^self]
+        self askForSaving ifFalse: [^self].
+        cls := self resolveName:specClass.
     ].
 
     loadedFromSpec := loadedFromClass := false.
@@ -1973,7 +1974,8 @@
     |cls selectorOrMenu editor selectedSpec spec|
 
     (cls := self resolveName:specClass) isNil ifTrue:[
-        self askForSaving ifFalse: [^self]
+        self askForSaving ifFalse: [^self].
+        cls := self resolveName:specClass.
     ].
 
     cls notNil ifTrue:[
@@ -2047,12 +2049,16 @@
 
     |spec cls meta sel|
 
+    (self resolveName:specClass) isNil ifTrue:[
+        self askForSaving ifFalse: [^self]
+    ]. 
+
     spec := self specTool specification.
     cls := spec majorKey.
     cls isNil ifTrue:[
         cls := specClass.
     ].
-    (cls := self resolveName:cls inClass:(Smalltalk at: specClass)) isNil ifTrue:[
+    (cls := self resolveName:cls inClass:(Smalltalk at: specClass asSymbol)) isNil ifTrue:[
         spec majorKey isNil ifTrue:[
             ^ self warn:'Cannot find class (no majorKey specified)'.
         ].