********************************************************************
* NOTE: This file is generated automatically from the event * definition file Bresenham.evt. ********************************************************************<* PRAGMA LL *> MODULE; <*NOWARN*> IMPORT BresenhamAlgClass, ZeusClass, ViewClass; REVEAL T = Public BRANDED OBJECT OVERRIDES <* LL.sup = VBT.mu *> isCompat := IsCompat; <* LL.sup < VBT.mu *> oeSetup := Setup; oeNewLine := NewLine; oeErrorInit := ErrorInit; oeShowPixel := ShowPixel; oeFindError := FindError; oeChangeError := ChangeError; oeCompareError := CompareError; oeShowNextPixel := ShowNextPixel; oeMove := Move; <* LL.sup = VBT.mu *> END; PROCEDURE BresenhamViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, BresenhamAlgClass.T) END IsCompat; PROCEDURESetup (view: T ; <*UNUSED*> width: INTEGER ; <*UNUSED*> height: INTEGER ; <*UNUSED*> show: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Setup; PROCEDURENewLine (view: T ; <*UNUSED*> x0: INTEGER ; <*UNUSED*> y0: INTEGER ; <*UNUSED*> x1: INTEGER ; <*UNUSED*> y1: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NewLine; PROCEDUREErrorInit (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ErrorInit; PROCEDUREShowPixel (view: T ; <*UNUSED*> x: INTEGER ; <*UNUSED*> y: INTEGER ; <*UNUSED*> p1: INTEGER ; <*UNUSED*> p2: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ShowPixel; PROCEDUREFindError (view: T ; <*UNUSED*> p: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END FindError; PROCEDUREChangeError (view: T ; <*UNUSED*> p: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ChangeError; PROCEDURECompareError (view: T ; <*UNUSED*> p: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END CompareError; PROCEDUREShowNextPixel (view: T ; <*UNUSED*> p: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ShowNextPixel; PROCEDUREMove (view: T ; <*UNUSED*> p: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Move; BEGIN END BresenhamViewClass.