Hi! Just to share a screenshot of what we are working on: Result of the script: =-=-==-=-==-=-==-=-==-=-= | b | b := RTGraphBuilder new. b nodes color: Color gray. b edges connectTo: #dependentClasses; color: (Color gray alpha: 0.1); if: [ :f :t | '*Example*' match: f name ] color: (Color green alpha: 0.2). b layout partition: [ :c | c inheritsFrom: RTTest ]; partition: [ :c | c inheritsFrom: RTLayout ]; partition: [ :c | c inheritsFrom: RTShape ]; partition: [ :c | c inheritsFrom: RTInteraction ]; partition: [ :c | c inheritsFrom: RTBuilder ]; partition: [ :c | '*Example*' match: c name ]; partition: true; force. b layout circle radius: 250. b global normalizeSize: [ :c | c dependentClasses size ] min: 5 max: 30 using: #sqrt. b addAll: (RTObject withAllSubclasses). b open =-=-==-=-==-=-==-=-==-=-= Comments are welcome! Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.