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

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


INTERFACE DGraphAlgClass;

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

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetup: BOOLEAN := TRUE;
    waitAtSetup: CARDINAL := 1;
    ctOfSetup: CARDINAL := 0;
    stopAtAddEdge: BOOLEAN := TRUE;
    waitAtAddEdge: CARDINAL := 1;
    ctOfAddEdge: CARDINAL := 0;
    stopAtMarkEdge: BOOLEAN := TRUE;
    waitAtMarkEdge: CARDINAL := 1;
    ctOfMarkEdge: CARDINAL := 0;
    stopAtUnMarkEdge: BOOLEAN := TRUE;
    waitAtUnMarkEdge: CARDINAL := 1;
    ctOfUnMarkEdge: CARDINAL := 0;
    stopAtMarkVertex: BOOLEAN := TRUE;
    waitAtMarkVertex: CARDINAL := 1;
    ctOfMarkVertex: CARDINAL := 0;
    stopAtUnMarkVertex: BOOLEAN := TRUE;
    waitAtUnMarkVertex: CARDINAL := 1;
    ctOfUnMarkVertex: CARDINAL := 0;
    stopAtNewTree: BOOLEAN := TRUE;
    waitAtNewTree: CARDINAL := 1;
    ctOfNewTree: CARDINAL := 0;
    stopAtHighlight: BOOLEAN := TRUE;
    waitAtHighlight: CARDINAL := 1;
    ctOfHighlight: CARDINAL := 0;
    stopAtAddChild: BOOLEAN := TRUE;
    waitAtAddChild: CARDINAL := 1;
    ctOfAddChild: CARDINAL := 0;
    stopAtRemoveChild: BOOLEAN := TRUE;
    waitAtRemoveChild: CARDINAL := 1;
    ctOfRemoveChild: CARDINAL := 0;
  END;

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

      METHODS
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END DGraphAlgClass.