haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
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' }
}