5999     specClass := self resolveName:specClassName.

  5999     specClass := self resolveName:specClassName.

  6000     (specClass notNil and:[ specClass isClass ]) ifFalse:[

  6000     (specClass notNil and:[ specClass isClass ]) ifFalse:[

  6001         self warn:('Oops - cannot save. Class not found: ' , specClassName).

  6001         self warn:('Oops - cannot save. Class not found: ' , specClassName).

  6002         ^ nil

  6002         ^ nil

  6003     ].

  6003     ].

  6004 

  6005 

  6005     painter := self painter.

  6006     painter := self painter.

  6006     painter 

  6007     painter 

  6007         class:specClass

  6008         class:specClass

  6008         superclassName:specSuperclassName

  6009         superclassName:specSuperclassName