27 Sep
2013
27 Sep
'13
11 p.m.
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(a)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!
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
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
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev