Dear List,
I was wondering why a UML diagram cannot be obtained through:
-=-=-=-=-=-=-=-=-=-=-=-= | builder view | builder := MOFormsBuilder new. builder column; fill. builder row; fill; row; fill. builder x: 1 y: 1 add: (MORectangleShape new). builder x: 1 y: 1 add: (MOLabelShape new text: [:cls | cls name]). builder x: 1 y: 2 add: (MORectangleShape new). builder x: 1 y: 2 add: (MOLabelShape new text: [:cls | cls methodDict keys inject: '' into: [:sum :el | sum, el, String cr]]).
view := MOViewRenderer new. view nodeShape: builder shape. view draggable. view popupText. view nodes: {MONExplicitIdentityNormalizer}.
view layout: MOTreeLayout new.
view open -=-=-=-=-=-=-=-=-=-=-=-=
This is not polished, but having multi-lines label seems to be interesting...
Alexandre