(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
(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