public ITGenericStepper(IntegerTable onTable, OrderSpec anOrder) {
super();
if ((anOrder.followsInt(1, 0))
/* order is ascending */
) {
arrayInternal = ((IntegerTable) onTable.copy());
indexInternal = onTable.lowestIndex();
lastValueInternal = onTable.highestIndex();
incrementInternal = 1;
} else
/* order is descending */
{
arrayInternal = ((IntegerTable) onTable.copy());
indexInternal = onTable.highestIndex();
lastValueInternal = onTable.lowestIndex();
incrementInternal = -1;
}
/*
udanax-top.st:56062:ITGenericStepper methodsFor: 'create'!
create: onTable {IntegerTable} with.OrderSpec: anOrder {OrderSpec}
super create.
(anOrder followsInt: 1 with: IntegerVar0)
ifTrue: "order is ascending"
[arrayInternal _ (onTable copy cast: IntegerTable).
indexInternal _ onTable lowestIndex.
lastValueInternal _ onTable highestIndex.
incrementInternal _ 1]
ifFalse: "order is descending"
[arrayInternal _ (onTable copy cast: IntegerTable).
indexInternal _ onTable highestIndex.
lastValueInternal _ onTable lowestIndex.
incrementInternal _ -1]!
*/
}
public ITGenericStepper(IntegerTable array, int index) {
super();
arrayInternal = (IntegerTable) array.copy();
indexInternal = index;
lastValueInternal = arrayInternal.highestIndex();
incrementInternal = 1;
/*
udanax-top.st:56077:ITGenericStepper methodsFor: 'create'!
create: array {IntegerTable} with: index {IntegerVar}
super create.
arrayInternal _ array copy cast: IntegerTable.
indexInternal _ index.
lastValueInternal _ arrayInternal highestIndex.
incrementInternal _ 1!
*/
}
public ITGenericStepper(IntegerTable array) {
super();
arrayInternal = ((IntegerTable) array.copy());
indexInternal = 0;
lastValueInternal = arrayInternal.highestIndex();
incrementInternal = 1;
/*
udanax-top.st:56055:ITGenericStepper methodsFor: 'create'!
create: array {IntegerTable}
super create.
arrayInternal _ (array copy cast: IntegerTable).
indexInternal _ IntegerVar0.
lastValueInternal _ arrayInternal highestIndex.
incrementInternal _ 1!
*/
}