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
Hi Alex,
Of course you can obtain it like that. But, the thing is that in this way you cannot get to the method object behind.
Cheers, Doru
On 21 Feb 2009, at 11:14, Alexandre Bergel wrote:
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
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Presenting is storytelling."
Ah yes...
Sorry for this question
Alexandre
On 21 Feb 2009, at 14:53, Tudor Girba wrote:
Hi Alex,
Of course you can obtain it like that. But, the thing is that in this way you cannot get to the method object behind.
Cheers, Doru
On 21 Feb 2009, at 11:14, Alexandre Bergel wrote:
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
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Presenting is storytelling."
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-
Alexandre Bergel -
Alexandre Bergel -
Tudor Girba