********************************************************************
* NOTE: This file is generated automatically from the event
* definition file Bresenham.evt.
********************************************************************
INTERFACE BresenhamAlgClass ;
<*NOWARN*> IMPORT Algorithm, AlgorithmClass;
<* PRAGMA LL *>
TYPE
EventDataRec = RECORD
stopAtSetup: BOOLEAN := TRUE;
waitAtSetup: CARDINAL := 1;
ctOfSetup: CARDINAL := 0;
stopAtNewLine: BOOLEAN := TRUE;
waitAtNewLine: CARDINAL := 1;
ctOfNewLine: CARDINAL := 0;
stopAtErrorInit: BOOLEAN := TRUE;
waitAtErrorInit: CARDINAL := 1;
ctOfErrorInit: CARDINAL := 0;
stopAtShowPixel: BOOLEAN := TRUE;
waitAtShowPixel: CARDINAL := 1;
ctOfShowPixel: CARDINAL := 0;
stopAtFindError: BOOLEAN := TRUE;
waitAtFindError: CARDINAL := 1;
ctOfFindError: CARDINAL := 0;
stopAtChangeError: BOOLEAN := TRUE;
waitAtChangeError: CARDINAL := 1;
ctOfChangeError: CARDINAL := 0;
stopAtCompareError: BOOLEAN := TRUE;
waitAtCompareError: CARDINAL := 1;
ctOfCompareError: CARDINAL := 0;
stopAtShowNextPixel: BOOLEAN := TRUE;
waitAtShowNextPixel: CARDINAL := 1;
ctOfShowNextPixel: CARDINAL := 0;
stopAtMove: BOOLEAN := TRUE;
waitAtMove: CARDINAL := 1;
ctOfMove: CARDINAL := 0;
END;
T <: Public;
Public = Algorithm.T OBJECT
eventDataRec: EventDataRec;
METHODS
END;
REVEAL
Algorithm.T <: AlgorithmClass.T;
END BresenhamAlgClass.