equal
deleted
inserted
replaced
443 rootOfClasses |
443 rootOfClasses |
444 "returns the value holder for the root of the class tree list" |
444 "returns the value holder for the root of the class tree list" |
445 |
445 |
446 |holder| |
446 |holder| |
447 (holder := builder bindingAt:#rootOfClasses) isNil ifTrue:[ |
447 (holder := builder bindingAt:#rootOfClasses) isNil ifTrue:[ |
448 builder aspectAt:#rootOfClasses put: (holder := SelectionInTree new root: TreeItem new) |
448 builder aspectAt:#rootOfClasses put: (holder := TreeItem new) |
449 ]. |
449 ]. |
450 ^ holder |
450 ^ holder |
451 |
451 |
452 |
452 |
453 ! |
453 ! |
678 [ |
678 [ |
679 |superClasses nonSuperclasses item| |
679 |superClasses nonSuperclasses item| |
680 superClasses := foundClass withAllSuperclasses reverse. |
680 superClasses := foundClass withAllSuperclasses reverse. |
681 (nonSuperclasses := self treeViewContents allSuperclasses) notNil |
681 (nonSuperclasses := self treeViewContents allSuperclasses) notNil |
682 ifTrue: [superClasses := superClasses reject: [:cls| nonSuperclasses includes: cls]]. |
682 ifTrue: [superClasses := superClasses reject: [:cls| nonSuperclasses includes: cls]]. |
683 item := self rootOfClasses detectItem:[:child :arg| child contents == arg] arguments:superClasses. |
683 item := self rootOfClasses detectChild:[:child :arg| child contents == arg] arguments:superClasses. |
684 item notNil ifTrue:[self selectionOfClass value:item] |
684 item notNil ifTrue:[self selectionOfClass value:item] |
685 ]. |
685 ]. |
686 self valueOfClassName value: clsPattern |
686 self valueOfClassName value: clsPattern |
687 ]. |
687 ]. |
688 self valueOfClassName value: classSelection. |
688 self valueOfClassName value: classSelection. |