--- 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