| builder | builder := RTGraphBuilder new. builder nodes shape: (RTEllipse new ). builder edges connectTo: [ :c | c subclasses ]; shape: (RTLine new color: Color gray). builder addAll: Boolean allSuperclasses, Boolean withAllSubclasses. builder layout force. builder build. builder view