fixed openSubPainter
authorClaus Gittinger <cg@exept.de>
Sat, 07 Feb 1998 22:55:40 +0100
changeset 628 8992bc061c11
parent 627 e28ca0319230
child 629 f489f2d121bf
fixed openSubPainter
UIPainter.st
--- 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.