UIPainter.st
changeset 628 8992bc061c11
parent 625 8448535a3334
child 629 f489f2d121bf
equal deleted inserted replaced
627:e28ca0319230 628:8992bc061c11
  2205     spec := self specTool specification.
  2205     spec := self specTool specification.
  2206     cls := spec majorKey.
  2206     cls := spec majorKey.
  2207     cls isNil ifTrue:[
  2207     cls isNil ifTrue:[
  2208         cls := self specClass.
  2208         cls := self specClass.
  2209     ].
  2209     ].
  2210     (cls isNil or:[(cls := self resolveName:specClass) isNil]) ifTrue:[
  2210     (cls isNil or:[(cls := self resolveName:cls) isNil]) ifTrue:[
       
  2211         spec majorKey isNil ifTrue:[
       
  2212             ^ self warn:'Cannot find class (no majorKey specified)'.
       
  2213         ].
  2211         ^ self warn:'Cannot find class'.
  2214         ^ self warn:'Cannot find class'.
  2212     ].
  2215     ].
  2213     sel := spec minorKey.
  2216     sel := spec minorKey.
  2214     meta := cls class whichClassIncludesSelector:sel.
  2217     meta := cls class whichClassIncludesSelector:sel.
  2215     meta isNil ifTrue:[
  2218     meta isNil ifTrue:[