********************************************************************
* NOTE: This file is generated automatically from the event * definition file Euclid.evt. ********************************************************************INTERFACEEuclidAlgClass ; <*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.