# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1140040502 -3600
# Node ID b12d9b4dd6f2b8b15d349b53b5209a74256c59cb
# Parent  345bb527e187040d7f26a7ab1bb8fcdae7bd0fe5
*** empty log message ***

diff -r 345bb527e187 -r b12d9b4dd6f2 UIPainter.st
--- a/UIPainter.st	Wed Feb 15 22:54:52 2006 +0100
+++ b/UIPainter.st	Wed Feb 15 22:55:02 2006 +0100
@@ -1098,7 +1098,7 @@
               menu: menuToolbar
             )
            (VariableHorizontalPanelSpec
-              name: 'hpanel'
+              name: 'mainPanel'
               layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
               level: 1
               component: 
@@ -2905,7 +2905,7 @@
 
     specClassName isNil ifTrue: [^'No class and selector defined.'].
     specSelector isNil ifTrue: [^'No selector defined.'].
-    ^specClassName printString, ' >> ', specSelector
+    ^ specClassName printString, ' >> ', specSelector
 
     "Modified: / 20.6.1998 / 16:49:16 / cg"
 ! !
@@ -3071,9 +3071,9 @@
     ].
 
     specSuperclassName isBehavior ifFalse:[
-        specSuperclassName isEmpty ifFalse:[
+        specSuperclassName notEmptyOrNil ifTrue:[
             superclass := self resolveName:specSuperclassName
-        ] ifTrue:[
+        ] ifFalse:[
             specSuperclassName := nil.
         ]
     ] ifTrue:[
@@ -3524,6 +3524,7 @@
         (builder componentAt:'acceptButton') label:(resources string:'Apply')
     ].
 
+    self updateInfoLabel.
     "Modified: / 22.8.1998 / 17:41:34 / cg"
 !
 
@@ -3671,9 +3672,6 @@
 postBuildWith: aBuilder
     super postBuildWith:aBuilder.
 
-    specSelector := nil.
-    specClassName    := nil.
-
     self setupPainter.
 
     "Modified: / 22.8.1998 / 17:41:34 / cg"
@@ -4247,7 +4245,7 @@
 doSave
     "saves the window spec"
     
-    |code painter|
+    |code painter specClass|
 
     self askForSectionModification.
     self hasSpecClassAndSelector ifFalse:[
@@ -4255,14 +4253,16 @@
             ^ nil
         ]
     ].
-    
-    (specClassName notNil and:[ specClassName isClass ]) ifFalse:[
+
+    specClass := self resolveName:specClassName.
+    (specClass notNil and:[ specClass isClass ]) ifFalse:[
         self warn:('Oops - cannot save - class not found: ' , specClassName).
         ^ nil
     ].
+
     painter := self painter.
     painter 
-        class:specClassName
+        class:specClass
         superclassName:specSuperclassName
         selector:specSelector.
 
@@ -4282,8 +4282,8 @@
     self updateInfoLabel.
     modified := false.
     painter resetModification.
-    (specClassName respondsTo:specSelector) ifTrue:[
-        self addHistoryEntryForClass:specClassName selector:specSelector.
+    (specClass respondsTo:specSelector) ifTrue:[
+        self addHistoryEntryForClass:specClass selector:specSelector.
     ].
 !