gef/derived/gefeventAlgClass.i3


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.