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

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


INTERFACE CPAlgClass;

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

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetup: BOOLEAN := TRUE;
    waitAtSetup: CARDINAL := 1;
    ctOfSetup: CARDINAL := 0;
    stopAtAddPoint: BOOLEAN := TRUE;
    waitAtAddPoint: CARDINAL := 1;
    ctOfAddPoint: CARDINAL := 0;
    stopAtNotProcessed: BOOLEAN := TRUE;
    waitAtNotProcessed: CARDINAL := 1;
    ctOfNotProcessed: CARDINAL := 0;
    stopAtRemoveNotProcessed: BOOLEAN := TRUE;
    waitAtRemoveNotProcessed: CARDINAL := 1;
    ctOfRemoveNotProcessed: CARDINAL := 0;
    stopAtActiveR: BOOLEAN := TRUE;
    waitAtActiveR: CARDINAL := 1;
    ctOfActiveR: CARDINAL := 0;
    stopAtRemoveActiveR: BOOLEAN := TRUE;
    waitAtRemoveActiveR: CARDINAL := 1;
    ctOfRemoveActiveR: CARDINAL := 0;
    stopAtCloseR: BOOLEAN := TRUE;
    waitAtCloseR: CARDINAL := 1;
    ctOfCloseR: CARDINAL := 0;
    stopAtRemoveCloseR: BOOLEAN := TRUE;
    waitAtRemoveCloseR: CARDINAL := 1;
    ctOfRemoveCloseR: CARDINAL := 0;
    stopAtSplit: BOOLEAN := TRUE;
    waitAtSplit: CARDINAL := 1;
    ctOfSplit: CARDINAL := 0;
    stopAtSplitRemove: BOOLEAN := TRUE;
    waitAtSplitRemove: CARDINAL := 1;
    ctOfSplitRemove: CARDINAL := 0;
    stopAtNewMin: BOOLEAN := TRUE;
    waitAtNewMin: CARDINAL := 1;
    ctOfNewMin: CARDINAL := 0;
    stopAtNoChangeMin: BOOLEAN := TRUE;
    waitAtNoChangeMin: CARDINAL := 1;
    ctOfNoChangeMin: CARDINAL := 0;
    stopAtSelectTrialPoint: BOOLEAN := TRUE;
    waitAtSelectTrialPoint: CARDINAL := 1;
    ctOfSelectTrialPoint: CARDINAL := 0;
    stopAtDeselectTrialPoint: BOOLEAN := TRUE;
    waitAtDeselectTrialPoint: CARDINAL := 1;
    ctOfDeselectTrialPoint: CARDINAL := 0;
    stopAtSelectTargetPoint: BOOLEAN := TRUE;
    waitAtSelectTargetPoint: CARDINAL := 1;
    ctOfSelectTargetPoint: CARDINAL := 0;
    stopAtDeselectTargetPoint: BOOLEAN := TRUE;
    waitAtDeselectTargetPoint: CARDINAL := 1;
    ctOfDeselectTargetPoint: CARDINAL := 0;
    stopAtDrawBar: BOOLEAN := TRUE;
    waitAtDrawBar: CARDINAL := 1;
    ctOfDrawBar: CARDINAL := 0;
    stopAtRemoveBar: BOOLEAN := TRUE;
    waitAtRemoveBar: CARDINAL := 1;
    ctOfRemoveBar: CARDINAL := 0;
  END;

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

      METHODS
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END CPAlgClass.