27 Sep
2013
27 Sep
'13
5:12 p.m.
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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev