1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Quintiq file version 2.0
| #parent: #root
| Method SetSiblings
| {
| Description: 'Set the siblings relations for this unit.'
| TextBody:
| [*
| // desmondt Jul-1-2015 (created)
| // Keep the old sorting
| sortedchild := selectsortedset( this, Parent.Child, child, true, child.DisplayIndex(), child.ID() );
|
| // Flush the sibling relations before setting new one.
| this.SiblingUnit( relflush );
|
| traverse( sortedchild, Elements, child )
| {
| this.SiblingUnit( relinsert, child );
| }
| *]
| }
|
|
