Stef,

Same answer: I had this problem before. When you set the shape, it is the shape for the nodes you add after. So change the shape and nodes: statement and it works.

Good luck!

view := ROMondrianViewBuilder view: ROView new.
luClasses := luModel allModelClasses.
view shape rectangle size: [ :cls | cls queryAllOutgoingInvocations size ].
view nodes: luClasses.
view edgesFrom: #superclass.
view treeLayout.
view open

On Sep 27, 2013, at 1:48 PM, Stéphane Ducasse wrote:

view := ROMondrianViewBuilder view: ROView new.
luClasses := luModel allModelClasses.
view nodes: luClasses.
view shape rectangle size: [ :cls | cls queryAllOutgoingInvocations size ].
view edgesFrom: #superclass.
view treeLayout.
view open


When I execute the following code I get

setEdgesAttachPoint: attachPointClass

self edges do: [ :ed |
(ed isShapedAs: ROShape)
ifTrue: [
(ed getShape: ROShape) attachPoint: attachPointClass instance ]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ifFalse: [ ROLine new color: self shape color; attachPoint: attachPointClass instance ] ]


_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev