ResourceSelectionBrowser.st
changeset 867 1ba402cdb5be
parent 866 4b18f2c8478f
child 906 8be0b8d1a2fd
equal deleted inserted replaced
866:4b18f2c8478f 867:1ba402cdb5be
   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