[Moose-dev] Re: Roassal: is there an example how to add a name to any shape?

Without Kontraktor: -=-=-=-=-=-=-=-=-=-= | rawView view | rawView := ROView new. view := ROMondrianViewBuilder view: rawView. view shape rectangle withText. view nodes: Collection withAllSubclasses. view edgesFrom: #superclass. view treeLayout. view open -=-=-=-=-=-=-=-=-=-= With Kontraktor: -=-=-=-=-=-=-=-=-=-= | rawView view k | rawView := ROView new. view := ROMondrianViewBuilder view: rawView. k := MalKontractor toSize: 10. view shape rectangle withText: [:cls | k reduce: cls name ]. view nodes: Collection withAllSubclasses. view edgesFrom: #superclass. view treeLayout. view open -=-=-=-=-=-=-=-=-=-=