lazhen
2024-11-04 9cc08f0b6862baf1b50c0702e87a3c4f39f40a52
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' }
}