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

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


INTERFACE BinpackAlgClass;

<*NOWARN*> IMPORT IntList, BinpackAux, RealList, Algorithm;
<*NOWARN*> IMPORT AlgorithmClass;

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetup: BOOLEAN := TRUE;
    waitAtSetup: CARDINAL := 1;
    ctOfSetup: CARDINAL := 0;
    stopAtNewWeight: BOOLEAN := TRUE;
    waitAtNewWeight: CARDINAL := 1;
    ctOfNewWeight: CARDINAL := 0;
    stopAtPack: BOOLEAN := TRUE;
    waitAtPack: CARDINAL := 1;
    ctOfPack: CARDINAL := 0;
    stopAtIgnore: BOOLEAN := TRUE;
    waitAtIgnore: CARDINAL := 1;
    ctOfIgnore: CARDINAL := 0;
    stopAtProbe: BOOLEAN := TRUE;
    waitAtProbe: CARDINAL := 1;
    ctOfProbe: CARDINAL := 0;
  END;

  T <: Public;
  Public = Algorithm.T OBJECT
      eventDataRec: EventDataRec;

      METHODS
        feTryToDeleteWeight ( id: INTEGER);    <* LL = VBT.mu *>
        feTryToEmptyBin ( bin: INTEGER);    <* LL = VBT.mu *>
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END BinpackAlgClass.