equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 SelectionBrowser subclass:#ResourceSelectionBrowser |
16 SelectionBrowser subclass:#ResourceSelectionBrowser |
15 instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes |
17 instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes |
16 allClasses classSelectionBlock' |
18 allClasses classSelectionBlock' |
17 classVariableNames:'ClassPresentation' |
19 classVariableNames:'ClassPresentation' |
810 |
812 |
811 ClassPresentation = #'Class Hierarchy' ifTrue: [ |
813 ClassPresentation = #'Class Hierarchy' ifTrue: [ |
812 |searchArgs nonSuperclasses hierItem| |
814 |searchArgs nonSuperclasses hierItem| |
813 |
815 |
814 false "foundClass isPrivate" |
816 false "foundClass isPrivate" |
815 ifFalse: [searchArgs := foundClass withAllSuperclasses reverse] |
817 ifFalse: [searchArgs := foundClass withAllSuperclasses reversed] |
816 ifTrue: [searchArgs := foundClass owningClass withAllSuperclasses reverse. |
818 ifTrue: [searchArgs := foundClass owningClass withAllSuperclasses reversed. |
817 searchArgs add: foundClass]. |
819 searchArgs add: foundClass]. |
818 (nonSuperclasses := self treeViewClassHierarchyContents allSuperclasses) notNil |
820 (nonSuperclasses := self treeViewClassHierarchyContents allSuperclasses) notNil |
819 ifTrue: [searchArgs := searchArgs reject: [:cls| nonSuperclasses includes: cls]]. |
821 ifTrue: [searchArgs := searchArgs reject: [:cls| nonSuperclasses includes: cls]]. |
820 |
822 |
821 hierItem := self rootOfClassHierarchy detectChild:[:child :arg| child contents == arg] arguments:searchArgs. |
823 hierItem := self rootOfClassHierarchy detectChild:[:child :arg| child contents == arg] arguments:searchArgs. |