Changing ClassWidget>>#showHierarchy to:

showHierarchy: aBoolean

              | all |

              (showHierarchy := aBoolean) ifFalse:  [ ^ self ].

              all := IdentitySet new.

              model selectedPackageGroup asNautilusSelection classes do: [ :cls  |

                             all

                                           addAll: cls allSuperclasses;

                                           addAll: cls withAllSubclasses

              ].

              self cachedHierarchy: (SortHierarchically buildHierarchyForClasses: all)

Will make the hierarchy button show the tree for all classes in that package/tag.

Best regards,

Henrik

From: Pharo-users [mailto:pharo-users-bounces@lists.pharo.org] On Behalf Of Tim Mackinnon

Sent: Wednesday, December 28, 2016 5:24 PM

To: Any question about pharo is welcome <pharo-users@lists.pharo.org>

Subject: Re: [Pharo-users] How to view hierarchy of multiple classes in a package?

This seems to have generated a bit of conversation which has helped me quite a bit.

Denis, your picture has made me realise that the System browser is a bit better than I realised.

However the example I was looking at was a package that had a series of Announcement subclasses, AND what wasn't obvious was that they were all subclasses of the same parent "Announcement", as that isn't shown - you just get a series of classes not rooted under some parent (even if it was object). I'm guessing that just things that are subclasses of each other in the same package are shown?

I was hoping that pane might show -

Announcement

+ A

+ B

   + C

I'm now wondering what it will show if you had a few different subclasses of the different collection classes (ok it's a bad idea to subclass them, but my point is if you had a few models at different points in a hierarchy)?

I'm guessing you would see the same flat list - but I will go and try that to help me learn a bit more.

Tim