--- a/ResourceSelectionBrowser.st Tue Jun 16 18:21:02 1998 +0200
+++ b/ResourceSelectionBrowser.st Thu Jun 18 17:07:13 1998 +0200
@@ -703,9 +703,12 @@
].
foundClass notNil
ifTrue:
- [
- |superClasses nonSuperclasses item|
- superClasses := foundClass withAllSuperclasses reverse.
+ [
+ |superClasses nonSuperclasses item cls|
+ (cls := Smalltalk at: classSelection) isPrivate
+ ifFalse: [superClasses := foundClass withAllSuperclasses reverse]
+ ifTrue: [superClasses := cls owningClass withAllSuperclasses reverse. superClasses add: cls]
+.
(nonSuperclasses := self treeViewContents allSuperclasses) notNil
ifTrue: [superClasses := superClasses reject: [:cls| nonSuperclasses includes: cls]].
item := self rootOfClasses detectChild:[:child :arg| child contents == arg] arguments:superClasses.