********************************************************************
* NOTE: This file is generated automatically from the event * definition file Euclid.evt. ********************************************************************<* PRAGMA LL *> MODULE; <*NOWARN*> IMPORT ZeusClass, Euclid, EuclidAlgClass, ViewClass; REVEAL T = Public BRANDED OBJECT OVERRIDES <* LL.sup = VBT.mu *> isCompat := IsCompat; <* LL.sup < VBT.mu *> oeSetupTriangle := SetupTriangle; oeSetupSquare := SetupSquare; oeLineAL := LineAL; oeTriangle := Triangle; oeQuad := Quad; oeShear := Shear; oeRotateTriangle := RotateTriangle; oeRotateLine := RotateLine; oeRotateAngle := RotateAngle; oeHighlightLine := HighlightLine; oeHighlightAngle := HighlightAngle; oeRemove := Remove; oeStep := Step; <* LL.sup = VBT.mu *> END; PROCEDURE EuclidViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, EuclidAlgClass.T) END IsCompat; PROCEDURESetupTriangle (view: T ; <*UNUSED*> a: REAL ; <*UNUSED*> b: REAL ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SetupTriangle; PROCEDURESetupSquare (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> p3: Euclid.Id ; <*UNUSED*> p4: Euclid.Id ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SetupSquare; PROCEDURELineAL (view: T ; <*UNUSED*> show: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END LineAL; PROCEDURETriangle (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> p3: Euclid.Id ; <*UNUSED*> color: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Triangle; PROCEDUREQuad (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> p3: Euclid.Id ; <*UNUSED*> p4: Euclid.Id ; <*UNUSED*> color: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Quad; PROCEDUREShear (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> from: Euclid.Id ; <*UNUSED*> to: Euclid.Id ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Shear; PROCEDURERotateTriangle (view: T ; <*UNUSED*> pivot: Euclid.Id ; <*UNUSED*> p1From: Euclid.Id ; <*UNUSED*> p1To: Euclid.Id ; <*UNUSED*> p2From: Euclid.Id ; <*UNUSED*> pt2To: Euclid.Id ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RotateTriangle; PROCEDURERotateLine (view: T ; <*UNUSED*> pivot: Euclid.Id ; <*UNUSED*> pFrom: Euclid.Id ; <*UNUSED*> pTo: Euclid.Id ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RotateLine; PROCEDURERotateAngle (view: T ; <*UNUSED*> pivot: Euclid.Id ; <*UNUSED*> p1From: Euclid.Id ; <*UNUSED*> p1To: Euclid.Id ; <*UNUSED*> p2From: Euclid.Id ; <*UNUSED*> pt2To: Euclid.Id ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RotateAngle; PROCEDUREHighlightLine (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> value: INTEGER ; <*UNUSED*> show: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END HighlightLine; PROCEDUREHighlightAngle (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> vertex: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> value: INTEGER ; <*UNUSED*> show: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END HighlightAngle; PROCEDURERemove (view: T ; <*UNUSED*> p1: Euclid.Id ; <*UNUSED*> p2: Euclid.Id ; <*UNUSED*> p3: Euclid.Id ; <*UNUSED*> p4: Euclid.Id ; <*UNUSED*> show: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Remove; PROCEDUREStep (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Step; BEGIN END EuclidViewClass.