equal
deleted
inserted
replaced
5358 list := builder bindingAt:#retrieverList. |
5358 list := builder bindingAt:#retrieverList. |
5359 list isNil ifTrue:[ |
5359 list isNil ifTrue:[ |
5360 list := MenuEditor imageRetrieverClasses asList. |
5360 list := MenuEditor imageRetrieverClasses asList. |
5361 builder aspectAt:#retrieverList put:list. |
5361 builder aspectAt:#retrieverList put:list. |
5362 ]. |
5362 ]. |
5363 (masterApplication notNil and:[ (cls := masterApplication specClass) notNil]) ifTrue:[ |
5363 (masterApplication notNil |
5364 ^ (Array with:cls),list |
5364 and:[(cls := masterApplication specClass) notNil]) ifTrue:[ |
|
5365 list := list copyWithFirst:cls. |
5365 ]. |
5366 ]. |
5366 ^ list |
5367 ^ list |
5367 ! |
5368 ! |
5368 |
5369 |
5369 selectorHolder |
5370 selectorHolder |