********************************************************************
* NOTE: This file is generated automatically from the event * definition file Hull.evt. ********************************************************************<* PRAGMA LL *> MODULE; <*NOWARN*> IMPORT HullFmt, HullAlgClass, IntList, ZeusClass; <*NOWARN*> IMPORT SiteList, ViewClass; REVEAL T = Public BRANDED OBJECT OVERRIDES <* LL.sup = VBT.mu *> isCompat := IsCompat; <* LL.sup < VBT.mu *> oeSetup := Setup; oeSetHalfPlane := SetHalfPlane; oeClearHead := ClearHead; oeTestSite := TestSite; oeClearTest := ClearTest; oeSetTail := SetTail; oeClearTail := ClearTail; oeMoveHalfPlane := MoveHalfPlane; oeConfirm := Confirm; oeDeny := Deny; oeSwap := Swap; oeSentinel := Sentinel; oeReOrder := ReOrder; oeStretch := Stretch; oeSnap := Snap; oeShuffle := Shuffle; <* LL.sup = VBT.mu *> END; PROCEDURE HullViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, HullAlgClass.T) END IsCompat; PROCEDURESetup (view: T ; <*UNUSED*> trueSites: SiteList.T ; <*UNUSED*> auxSites: SiteList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Setup; PROCEDURESetHalfPlane (view: T ; <*UNUSED*> tail: INTEGER ; <*UNUSED*> head: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SetHalfPlane; PROCEDUREClearHead (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ClearHead; PROCEDURETestSite (view: T ; <*UNUSED*> i: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END TestSite; PROCEDUREClearTest (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ClearTest; PROCEDURESetTail (view: T ; <*UNUSED*> i: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SetTail; PROCEDUREClearTail (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ClearTail; PROCEDUREMoveHalfPlane (view: T ; <*UNUSED*> tail: INTEGER ; <*UNUSED*> head: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END MoveHalfPlane; PROCEDUREConfirm (view: T ; <*UNUSED*> tail: INTEGER ; <*UNUSED*> head: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Confirm; PROCEDUREDeny (view: T ; <*UNUSED*> tail: INTEGER ; <*UNUSED*> head: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Deny; PROCEDURESwap (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> j: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Swap; PROCEDURESentinel (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> j: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Sentinel; PROCEDUREReOrder (view: T ; <*UNUSED*> l: IntList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ReOrder; PROCEDUREStretch (view: T ; <*UNUSED*> hullSites: IntList.T ; <*UNUSED*> otherSites: IntList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Stretch; PROCEDURESnap (view: T ; <*UNUSED*> hullSites: IntList.T ; <*UNUSED*> otherSites: IntList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Snap; PROCEDUREShuffle (view: T ; <*UNUSED*> hullSites: IntList.T ; <*UNUSED*> otherSites: IntList.T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Shuffle; BEGIN END HullViewClass.