It is a trick to use Microsoft's sort which seems to perform well
even under extreme conditions.
Code: Select all
listSort(In,Out):-!,
Ctl_Flags = [wsf_invisible,wsf_Sort],
SortWin = vpi::winCreateControl(wc_LBox,rct(0,0,100,100),"",
vpi::getTaskWindow(),Ctl_Flags,999),
vpi::lboxAdd(SortWin,In),
Out = vpi::lboxGetAll(SortWin),
vpi::winDestroy(SortWin).
Chan Bok
Axon Research