You might want to inspect this to see if this gets you something interesting.

(Object allSubclasses collect: [ :aClass |
        aClass -> aClass allInstances size])
        sort: [ :a :b | a value > b value ]

It takes some time to run, especially in a larger image.

Stephan


Reply via email to