...

assocs := OrderedCollection new.
assocs add: (view nodes at: 1) model ->(view nodes at: 33) model.
assocs add: (view nodes at: 5) model ->(view nodes at: 45) model.
assocs add: (view nodes at: 8) model ->(view nodes at: 36) model.
    view edgesFromAssociations: assocs.
...

Nice rendering:

Cheers,

Alexandre 

On May 17, 2013, at 4:52 AM, mathieubmddehouck@mailoo.org wrote:

Hi


There was a strike in Lille, and I admit it's not that easy to work home, it's far more easy to sleep in the sofa.

I have made a new shape anyway : ROArc, its an arc of a sixth of circle, maybe we can script it to choose the another shape (1/4, 1/2 ...).

 
Gofer new 
    smalltalkhubUser: 'MathieuDehouck' project: 'RoassalAlgorithm';
    package: 'Roassal-New';
    load

 
You can try:

-=-=-=-=-=-=-=-=-=-=-=-

"Source code: ROExample>>expandableNodesOn:"
"Preambule. It includes the initialization. "
| view rawView layout |
rawView := ROView new.
view := ROMondrianViewBuilder view: rawView.
"-------------"
"-------------"

    layout:= ROVerticalCompactTree new.

    view shape circle size: 15 .
    view nodes: (Collection withAllSubclasses).
    
    view edgesFrom: #superclass.
    layout userDefinedEdges: view edges.
    
    
    view layout: layout.
    layout verticalGap: 70; horizontalGap: 30.
    view applyLayout.
    
        view nodes do: [ :f | (layout childrenFor: f) do: [ :t | (t model inheritsFrom: f model) ifTrue: [ t model methodDict keysDo: [ :k | (f model methodDict includesKey: k) ifTrue: [ view edgeFromAssociation: f model ->t model ]  ] ] ] ].
    
    view edges do: [ :e | e - ROLine + (ROArc new color: (Color r: 0 g: 1 b: 0.5 ); width: 2) ].
    layout userDefinedEdges do: [ :e | e - ROArc + ((ROLine new) color: (Color r: 1 g: 0 b: 0 ); width: 2 ) ].
    
    view shape: (ROBezierCurve orthoVertical new color: (Color r: 0.9 g: 0.8  b: 0 ); width: 2 ) .
    view edgeFromAssociation: (view nodes at: 1) model ->(view nodes at: 33) model.
    view edgeFromAssociation: (view nodes at: 5) model ->(view nodes at: 45) model.
    view edgeFromAssociation: (view nodes at: 8) model ->(view nodes at: 36) model.
        
"-------------"
"-------------"
"Below is the initiation of the menu and opening the visualization"
ROEaselMorphic new populateMenuOn: view.
view open.

 
-=-=-=-=-=-=-=-=-=-=-=-=-

 
And you'll see that when we set a new shape in the easel, only the next edge is affected.

 
In this example red edges represent inheritance, green arcs represent overriding on parent's methods, and the 3 other are just for test purpose.

And we noticed that only one  of the three is drawn in yellow, the two other are in straight grey.

And I think, we got the same problem when defining multiple edges at the same time, only the first take the newly set shape.

 
Regards

Mathieu

 
<test shape.png>_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev