gef/derived/gefeventViewClass.m3


Copyright (C) 1994, Digital Equipment Corp.
********************************************************************
      *  NOTE: This file is generated automatically from the event 
      *        definition file gefevent.evt.
 
********************************************************************

MODULE gefeventViewClass;

<* NOWARN *> IMPORT RefList;
<* NOWARN *> IMPORT SLispClass;
IMPORT gefeventAlgClass;
IMPORT ViewClass, ZeusClass;

<* PRAGMA LL *>

REVEAL
  T = Public BRANDED OBJECT
      OVERRIDES
        <* LL.sup = VBT.mu *>
        isCompat := IsCompat;
        <* LL.sup < VBT.mu *>
        oeInit := Init;
        oeEvent := Event;
        oePause := Pause;
        <* LL.sup = VBT.mu *>
        ueUpdate := Update;
      END;

PROCEDURE IsCompat(<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN =
  <* LL.sup = VBT.mu *>
  BEGIN
    RETURN ISTYPE(alg, gefeventAlgClass.T)
  END IsCompat;

PROCEDURE Init (view: T
    ; <*UNUSED*> files: RefList.T
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Init;
PROCEDURE Event (view: T
    ; <*UNUSED*> name: TEXT
    ; <*UNUSED*> args: RefList.T
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Event;
PROCEDURE Pause (view: T
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Pause;

PROCEDURE Update (view: T
    ; <*UNUSED*> name: TEXT
    ; <*UNUSED*> args: RefList.T
) =
  <* LL.sup = VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Update;

BEGIN
END gefeventViewClass.