Hi, You should use "view newShape" before the "view nodes:" or "view edges:". nodes:forEach: is used for specifying the graphs inside the node. Try something like this: view newShape label text: #name. view nodes: mooseModel allClasses. view edgesFrom: #superclass. view treeLayout. Cheers, Doru On Mar 18, 2008, at 8:38 PM, Alexandre Bergel wrote: > Dear list, > > Mondrian is a great tool :-) > I have a question, how can I add a label under a box. I tried the > following script: > > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > view nodes: mooseModel allClasses forEach: [:each | > view newShape label text: #name. > view verticalLineLayout. > ]. > view edgesFrom: #superclass. > view treeLayout. > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > But I still have unlabeled boxes... > > Cheers, > Alexandre > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > _______________________________________________ > Moose-dev mailing list > Moose-dev(a)iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- www.tudorgirba.com www.tudorgirba.com/blog "Some battles are better lost than fought." _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

1. decoration provides a very simple composition. In your case it would be: view newShape rectangle; withBorder; withLabel; text: #name. view nodes: mooseModel allClasses. view edgesFrom: #superclass. view treeLayout. 2. using the FormsBuilder. This more complex, but it is very flexible. In your case, it would be: | builder | builder := Mondrian.FormsBuilder new. builder row; fill; pref; grow; row; size: 3; row; fill; pref; grow. builder column; fill; pref; grow. builder x: 1 y: 1 add: (Mondrian.RectangleShape withBorder). builder x: 1 y: 3 add: (Mondrian.LabelShape new label: #name). view shape: builder shape. view nodes: classGroup. You can see examples in ViewRendeder>>umlClassShapeWithLabel: or in ViewRenderer>>umlPackageShapeWithLabel: Cheers, Doru On Mar 18, 2008, at 8:56 PM, Alexandre Bergel wrote: > Excellent! > And if I want to have the name below a box ? > > Typically, I would like to have > http://moose.unibe.ch/tools/mondrian/easel? > _s=JksTBcIBfSanPmPz&_k=qJyPhpHC&_n&44 > with the name of the entity below. I find that using the mouse to > know a name of a class a bit cumbersome. > > how can I attach a label to a class box :-) > > Alexandre > > > On 18 Mar 2008, at 15:42, Tudor Girba wrote: > >> Hi, >> >> You should use "view newShape" before the "view nodes:" or "view >> edges:". nodes:forEach: is used for specifying the graphs inside the >> node. >> >> Try something like this: >> >> view newShape label text: #name. >> view nodes: mooseModel allClasses. >> view edgesFrom: #superclass. >> view treeLayout. >> >> >> Cheers, >> Doru >> >> On Mar 18, 2008, at 8:38 PM, Alexandre Bergel wrote: >> >>> Dear list, >>> >>> Mondrian is a great tool :-) >>> I have a question, how can I add a label under a box. I tried the >>> following script: >>> >>> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >>> view nodes: mooseModel allClasses forEach: [:each | >>> view newShape label text: #name. >>> view verticalLineLayout. >>> ]. >>> view edgesFrom: #superclass. >>> view treeLayout. >>> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >>> >>> But I still have unlabeled boxes... >>> >>> Cheers, >>> Alexandre >>> -- >>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: >>> Alexandre Bergel http://www.bergel.eu >>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. >>> >>> >>> >>> _______________________________________________ >>> Moose-dev mailing list >>> Moose-dev(a)iam.unibe.ch >>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev >> >> -- >> www.tudorgirba.com >> www.tudorgirba.com/blog >> >> "Some battles are better lost than fought." >> >> >> _______________________________________________ >> Moose-dev mailing list >> Moose-dev(a)iam.unibe.ch >> https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > _______________________________________________ > Moose-dev mailing list > Moose-dev(a)iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- www.tudorgirba.com www.tudorgirba.com/blog "Problem solving efficiency grows with the abstractness level of problem understanding." _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev