equal
deleted
inserted
replaced
750 ifTrue: [ |
750 ifTrue: [ |
751 classes := allClasses select: [:cls| cls name size >= clsPattern size]. |
751 classes := allClasses select: [:cls| cls name size >= clsPattern size]. |
752 1 to: clsPattern size do: [:i| |
752 1 to: clsPattern size do: [:i| |
753 classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)]. |
753 classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)]. |
754 ]. |
754 ]. |
755 foundClass := classes at: 1 ifAbsent: [nil] |
755 foundClass := classes at: 1 ifAbsent:[]. |
756 ]. |
756 ]. |
757 |
757 |
758 foundClass notNil ifTrue: [ |
758 foundClass notNil ifTrue: [ |
759 foundClass isLoaded ifFalse:[ |
759 foundClass := foundClass autoload. |
760 foundClass autoload. |
|
761 foundClass := Smalltalk at:foundClass name. |
|
762 ]. |
|
763 |
760 |
764 ClassPresentation = #'Class Hierarchy' ifTrue: [ |
761 ClassPresentation = #'Class Hierarchy' ifTrue: [ |
765 |searchArgs nonSuperclasses hierItem| |
762 |searchArgs nonSuperclasses hierItem| |
766 |
763 |
767 false "foundClass isPrivate" |
764 false "foundClass isPrivate" |
773 |
770 |
774 hierItem := self rootOfClassHierarchy detectChild:[:child :arg| child contents == arg] arguments:searchArgs. |
771 hierItem := self rootOfClassHierarchy detectChild:[:child :arg| child contents == arg] arguments:searchArgs. |
775 hierItem notNil ifTrue:[ |
772 hierItem notNil ifTrue:[ |
776 self selectionOfClassHierarchy value:hierItem. |
773 self selectionOfClassHierarchy value:hierItem. |
777 ]. |
774 ]. |
778 ] |
775 ] ifFalse: [ |
779 ifFalse: [ |
|
780 |searchArgs hierItem| |
776 |searchArgs hierItem| |
781 |
777 |
782 false "foundClass isPrivate" |
778 false "foundClass isPrivate" |
783 ifTrue: [searchArgs := Array with: 'Categories' with: foundClass category with: foundClass owningClass name with: foundClass name] |
779 ifTrue: [searchArgs := Array with: 'Categories' with: foundClass category with: foundClass owningClass name with: foundClass name] |
784 ifFalse: [searchArgs := Array with: 'Categories' with: foundClass category with: foundClass name]. |
780 ifFalse: [searchArgs := Array with: 'Categories' with: foundClass category with: foundClass name]. |