27 Sep
2013
27 Sep
'13
1:57 p.m.
I tried in 4.8 and it does not work either.
I do not get it because I took that from alex slides.
Stef
On Sep 27, 2013, at 1:48 PM, Stéphane Ducasse <Stephane.Ducasse(a)inria.fr> 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