Feb. 7, 2015
8:53 a.m.
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