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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev