# HG changeset patch
# User tz
# Date 898182433 -7200
# Node ID 4b18f2c8478f6f4ae75e06f6458e38d723760e59
# Parent  5831c5c9721e247e9f08a1637175d335ab3d0119
default selection of private classes

diff -r 5831c5c9721e -r 4b18f2c8478f ResourceSelectionBrowser.st
--- 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.