changeset 628 | 8992bc061c11 |
parent 625 | 8448535a3334 |
child 629 | f489f2d121bf |
--- a/UIPainter.st Sat Feb 07 21:35:19 1998 +0100 +++ b/UIPainter.st Sat Feb 07 22:55:40 1998 +0100 @@ -2207,7 +2207,10 @@ cls isNil ifTrue:[ cls := self specClass. ]. - (cls isNil or:[(cls := self resolveName:specClass) isNil]) ifTrue:[ + (cls isNil or:[(cls := self resolveName:cls) isNil]) ifTrue:[ + spec majorKey isNil ifTrue:[ + ^ self warn:'Cannot find class (no majorKey specified)'. + ]. ^ self warn:'Cannot find class'. ]. sel := spec minorKey.