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.