Hi guys
I'm preparing a lecture and if such kind of scripts do not work I will have to remove the roassal/mondrian part. And this is a pity. So can somebody give me a hint? Stef
On Sep 27, 2013, at 1:48 PM, Stéphane Ducasse Stephane.Ducasse@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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev