MenuEditor.st
changeset 340 1de048872d5e
parent 331 aa1663b8c2ab
child 356 269c117830ba
equal deleted inserted replaced
339:121b64d9b39a 340:1de048872d5e
  2247 
  2247 
  2248 buildFrom:aClass andSelector:aSelector
  2248 buildFrom:aClass andSelector:aSelector
  2249     |spec cls menu node|
  2249     |spec cls menu node|
  2250 
  2250 
  2251     (aClass notNil and:[aSelector notNil]) ifTrue:[
  2251     (aClass notNil and:[aSelector notNil]) ifTrue:[
  2252         cls := self resolveName:aClass.
  2252         cls := self application resolveName:aClass.
  2253 
  2253 
  2254         (cls respondsTo:aSelector) ifTrue:[
  2254         (cls respondsTo:aSelector) ifTrue:[
  2255             spec := cls perform:aSelector
  2255             spec := cls perform:aSelector
  2256         ]
  2256         ]
  2257     ].
  2257     ].