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