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' } 
 |  } 
 |  
  |