mentor/derived/EuclidAlgClass.i3


 Copyright (C) 1995, Digital Equipment Corporation.       
 All rights reserved.                                     
 See the file COPYRIGHT for a full description.           
                                                          
 Last modified on Thu Feb  9 08:47:37 PST 1995 by kalsow  
 Last modified on Wed Feb 17 16:44:58 PST 1993 by johnh   
      modified on Tue Jun  9 00:35:07 1992 by mhb         

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

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


INTERFACE EuclidAlgClass;

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

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetupTriangle: BOOLEAN := TRUE;
    waitAtSetupTriangle: CARDINAL := 1;
    ctOfSetupTriangle: CARDINAL := 0;
    stopAtSetupSquare: BOOLEAN := TRUE;
    waitAtSetupSquare: CARDINAL := 1;
    ctOfSetupSquare: CARDINAL := 0;
    stopAtLineAL: BOOLEAN := TRUE;
    waitAtLineAL: CARDINAL := 1;
    ctOfLineAL: CARDINAL := 0;
    stopAtTriangle: BOOLEAN := TRUE;
    waitAtTriangle: CARDINAL := 1;
    ctOfTriangle: CARDINAL := 0;
    stopAtQuad: BOOLEAN := TRUE;
    waitAtQuad: CARDINAL := 1;
    ctOfQuad: CARDINAL := 0;
    stopAtShear: BOOLEAN := TRUE;
    waitAtShear: CARDINAL := 1;
    ctOfShear: CARDINAL := 0;
    stopAtRotateTriangle: BOOLEAN := TRUE;
    waitAtRotateTriangle: CARDINAL := 1;
    ctOfRotateTriangle: CARDINAL := 0;
    stopAtRotateLine: BOOLEAN := TRUE;
    waitAtRotateLine: CARDINAL := 1;
    ctOfRotateLine: CARDINAL := 0;
    stopAtRotateAngle: BOOLEAN := TRUE;
    waitAtRotateAngle: CARDINAL := 1;
    ctOfRotateAngle: CARDINAL := 0;
    stopAtHighlightLine: BOOLEAN := TRUE;
    waitAtHighlightLine: CARDINAL := 1;
    ctOfHighlightLine: CARDINAL := 0;
    stopAtHighlightAngle: BOOLEAN := TRUE;
    waitAtHighlightAngle: CARDINAL := 1;
    ctOfHighlightAngle: CARDINAL := 0;
    stopAtRemove: BOOLEAN := TRUE;
    waitAtRemove: CARDINAL := 1;
    ctOfRemove: CARDINAL := 0;
    stopAtStep: BOOLEAN := TRUE;
    waitAtStep: CARDINAL := 1;
    ctOfStep: CARDINAL := 0;
  END;

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

      METHODS
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END EuclidAlgClass.