"Adapted from: https://vimeo.com/116886609"
| view objects |
objects := RTLayout withAllSubclasses.
view := RTMondrian new.
view nodes: objects.
view edges
	connectFrom: #superclass.
view layout tree.
view.
"(objects at: 8) superclass"