lazhen
2024-11-01 a1285c5bcea445e4c3c2a3e4fe47b9c9b1e9c1a7
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Quintiq file version 2.0
#parent: #root
Method RelativelyPositionOutgoingArcs
{
  TextBody:
  [*
    sorted := selectsortedset( this, Outgoing, arc, true, arc.Link().GetUISequenceNr(), arc.Destination().Column() );
    x := -this.Width() / 2;
    traverse( sorted, Elements, arc )
    {
      x := x + this.Width() / ( this.Outgoing( relsize ) + 1 );
      arc.First().X( x );
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}