author | Claus Gittinger <cg@exept.de> |
Sat, 07 Feb 1998 22:55:40 +0100 | |
changeset 628 | 8992bc061c11 |
parent 627 | e28ca0319230 |
child 629 | f489f2d121bf |
UIPainter.st | file | annotate | diff | comparison | revisions |
--- 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.