The syntax is indeed not ideal. It is too easy to get it wrong. Let me know if you have other questions.
Alexandre
On Sep 27, 2013, at 12:12 PM, Diego Lont diego.lont@delware.nl wrote:
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
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev