# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 867241694 -7200
# Node ID 72eec92090f682a3b94a83b1834da0e61fc8be50
# Parent  fb8451053c96232e7677b9415b2d2c7e9851a5c8
checkin from browser

diff -r fb8451053c96 -r 72eec92090f6 UIPainter.st
--- a/UIPainter.st	Tue Jun 24 19:14:46 1997 +0200
+++ b/UIPainter.st	Wed Jun 25 14:28:14 1997 +0200
@@ -1241,10 +1241,15 @@
     ].
 
     specSuperclass isBehavior ifFalse:[
-        superclass := Smalltalk at:specSuperclass asSymbol
+        specSuperclass isEmpty ifFalse:[
+            superclass := Smalltalk at:specSuperclass asSymbol
+        ] ifTrue:[
+            specSuperclass := nil.
+        ]
     ] ifTrue:[
         superclass := specSuperclass
     ].
+
     specSuperclass notNil ifTrue:[
         superclass isNil ifTrue:[
             self warn:'no class named ' , specSuperclass , ' exists.'.
@@ -1256,9 +1261,16 @@
             ^ false.
         ]
     ].
+
+    superclass isNil ifTrue:[
+        cls notNil ifTrue:[
+            specSuperclass := cls superclass name
+        ]
+    ].
+
     ^ true
 
-
+    "Modified: 25.6.1997 / 13:37:11 / cg"
 !
 
 defineClassAndSelector