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