equal
deleted
inserted
replaced
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 ]. |