Copyright (C) 1994, Digital Equipment Corp.
********************************************************************
* NOTE: This file is generated automatically from the event
* definition file gefevent.evt.
********************************************************************
INTERFACE gefeventAlgClass;
<* NOWARN *> IMPORT RefList;
<* NOWARN *> IMPORT SLispClass;
IMPORT Algorithm, AlgorithmClass;
<* PRAGMA LL *>
TYPE
EventDataRec = RECORD
stopAtInit: BOOLEAN := TRUE;
waitAtInit: CARDINAL := 1;
ctOfInit: CARDINAL := 0;
stopAtEvent: BOOLEAN := TRUE;
waitAtEvent: CARDINAL := 1;
ctOfEvent: CARDINAL := 0;
stopAtPause: BOOLEAN := TRUE;
waitAtPause: CARDINAL := 1;
ctOfPause: CARDINAL := 0;
END;
T <: Public;
Public = Algorithm.T OBJECT
eventDataRec: EventDataRec;
METHODS
feFeedback ( name: TEXT; args: RefList.T); <* LL = VBT.mu *>
END;
REVEAL
Algorithm.T <: AlgorithmClass.T;
END gefeventAlgClass.