Copyright (C) 1994, Digital Equipment Corp.********************************************************************
* NOTE: This file is generated automatically from the event * definition file gefevent.evt.********************************************************************
MODULE; <* 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 gefeventViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, gefeventAlgClass.T) END IsCompat; PROCEDUREInit (view: T ; <*UNUSED*> files: RefList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Init; PROCEDUREEvent (view: T ; <*UNUSED*> name: TEXT ; <*UNUSED*> args: RefList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Event; PROCEDUREPause (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Pause; PROCEDUREUpdate (view: T ; <*UNUSED*> name: TEXT ; <*UNUSED*> args: RefList.T ) = <* LL.sup = VBT.mu *> BEGIN view.evtHandled := FALSE; END Update; BEGIN END gefeventViewClass.