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