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
| StaticMethod MoveUp (
| Units units
| )
| {
| Description: 'Move elements up'
| TextBody:
| [*
| // boon kiat Sep-19-2013 (created)
|
| units := selectsortedset( units, Elements, e, true, e.DisplayIndex() );
|
| traverse( units, Elements, unit )
| {
| beforeelement := ifexpr( not unit.HasParent(), unit.PreviousRootUnit(), unit.PreviousSiblingUnit() );
| unit.MoveUp( beforeelement );
| }
| *]
| }
|
|
