********************************************************************

      *  NOTE: This file is generated automatically from the event
      *        definition file Sort.evt.
      ********************************************************************


INTERFACE SortAlgClass;

<*NOWARN*> IMPORT Algorithm, Sort, AlgorithmClass;

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtInit: BOOLEAN := TRUE;
    waitAtInit: CARDINAL := 1;
    ctOfInit: CARDINAL := 0;
    stopAtSetVal: BOOLEAN := TRUE;
    waitAtSetVal: CARDINAL := 1;
    ctOfSetVal: CARDINAL := 0;
    stopAtSwapElts: BOOLEAN := TRUE;
    waitAtSwapElts: CARDINAL := 1;
    ctOfSwapElts: CARDINAL := 0;
    stopAtStartPass: BOOLEAN := TRUE;
    waitAtStartPass: CARDINAL := 1;
    ctOfStartPass: CARDINAL := 0;
  END;

  T <: Public;
  Public = Algorithm.T OBJECT
      eventDataRec: EventDataRec;
  a: Sort.Keys;
  N: CARDINAL;

      METHODS
        feChangeVal ( i: CARDINAL; new: Sort.Key);    <* LL = VBT.mu *>
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END SortAlgClass.