equal
deleted
inserted
replaced
4467 retrieverHolder |
4467 retrieverHolder |
4468 ^ retrieverHolder |
4468 ^ retrieverHolder |
4469 ! |
4469 ! |
4470 |
4470 |
4471 retrieverList |
4471 retrieverList |
4472 |list cls| |
4472 |listOfClassNames cls owner| |
4473 |
4473 |
4474 list := builder bindingAt:#retrieverList. |
4474 listOfClassNames := builder bindingAt:#retrieverList. |
4475 list isNil ifTrue:[ |
4475 listOfClassNames isNil ifTrue:[ |
4476 list := MenuEditor imageRetrieverClasses asList. |
4476 listOfClassNames := MenuEditor imageRetrieverClasses asList. |
4477 builder aspectAt:#retrieverList put:list. |
4477 builder aspectAt:#retrieverList put:listOfClassNames. |
4478 ]. |
4478 ]. |
4479 (masterApplication notNil |
4479 (masterApplication notNil |
4480 and:[(cls := masterApplication specClass) notNil]) ifTrue:[ |
4480 and:[(cls := masterApplication specClass) notNil]) ifTrue:[ |
4481 list := list copyWithFirst:cls. |
4481 (listOfClassNames includes:cls name) ifFalse:[ listOfClassNames addFirst:cls name ]. |
4482 ]. |
4482 cls isPrivate ifTrue:[ |
4483 ^ list |
4483 (owner := cls owningClass) notNil ifTrue:[ |
|
4484 (listOfClassNames includes:owner name) ifFalse:[ listOfClassNames addFirst:owner name ]. |
|
4485 ]. |
|
4486 ]. |
|
4487 ]. |
|
4488 ^ listOfClassNames |
4484 ! |
4489 ! |
4485 |
4490 |
4486 selectorFilterHolder |
4491 selectorFilterHolder |
4487 ^ selectorFilterHolder |
4492 ^ selectorFilterHolder |
4488 |
4493 |