I would do that:

Implementation:
rootsInsidePackage := [ :packageName |
| myPackage |
myPackage := RPackageOrganizer default packageNamed: packageName.
myPackage definedClasses select: [ :each | each superclass package ~~ myPackage ] ].

Example use-case:
rootsInsidePackage value: 'OpalCompiler-Core'

Is that what you expected ?

On Thu, Apr 19, 2018 at 7:19 AM, Stephane Ducasse <stepharo.self@gmail.com> wrote:
Hi

Given a package I would like to know the classes that are roots
of hierarchy inside the package.

Do we have something like that?

Stef




--