equal
deleted
inserted
replaced
701 ]. |
701 ]. |
702 foundClass := classes at: 1 ifAbsent: [nil] |
702 foundClass := classes at: 1 ifAbsent: [nil] |
703 ]. |
703 ]. |
704 foundClass notNil |
704 foundClass notNil |
705 ifTrue: |
705 ifTrue: |
706 [ |
706 [ |
707 |superClasses nonSuperclasses item| |
707 |superClasses nonSuperclasses item cls| |
708 superClasses := foundClass withAllSuperclasses reverse. |
708 (cls := Smalltalk at: classSelection) isPrivate |
|
709 ifFalse: [superClasses := foundClass withAllSuperclasses reverse] |
|
710 ifTrue: [superClasses := cls owningClass withAllSuperclasses reverse. superClasses add: cls] |
|
711 . |
709 (nonSuperclasses := self treeViewContents allSuperclasses) notNil |
712 (nonSuperclasses := self treeViewContents allSuperclasses) notNil |
710 ifTrue: [superClasses := superClasses reject: [:cls| nonSuperclasses includes: cls]]. |
713 ifTrue: [superClasses := superClasses reject: [:cls| nonSuperclasses includes: cls]]. |
711 item := self rootOfClasses detectChild:[:child :arg| child contents == arg] arguments:superClasses. |
714 item := self rootOfClasses detectChild:[:child :arg| child contents == arg] arguments:superClasses. |
712 item notNil ifTrue:[self selectionOfClass value:item] |
715 item notNil ifTrue:[self selectionOfClass value:item] |
713 ]. |
716 ]. |