1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Quintiq file version 2.0
| #parent: #root
| Method PositionArcs
| {
| Description: 'Change the X coordinate of the arc point from relative to absolute.'
| TextBody:
| [*
|
| // Move arcs according to the new X
| traverse( this, UIGraphNode, node )
| {
| sorted := selectsortedset( node, Incoming, arc, true, arc.Origin().X() );
| i := 0;
| traverse( sorted, Elements, arc )
| {
| arc.Last().X( arc.Destination().X() + arc.Last().X() );
| i++;
| }
|
| sorted := selectsortedset( node, Outgoing, arc, true, arc.Destination().X() );
| i := 0;
| traverse( sorted, Elements, arc )
| {
| arc.First().X( arc.Origin().X() + arc.First().X() );
| i++;
| }
| }
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
