********************************************************************
* NOTE: This file is generated automatically from the event * definition file CP.evt. ********************************************************************<* PRAGMA LL *> MODULE; <*NOWARN*> IMPORT CPAlgClass, ZeusClass, R2, ViewClass; REVEAL T = Public BRANDED OBJECT OVERRIDES <* LL.sup = VBT.mu *> isCompat := IsCompat; <* LL.sup < VBT.mu *> oeSetup := Setup; oeAddPoint := AddPoint; oeNotProcessed := NotProcessed; oeRemoveNotProcessed := RemoveNotProcessed; oeActiveR := ActiveR; oeRemoveActiveR := RemoveActiveR; oeCloseR := CloseR; oeRemoveCloseR := RemoveCloseR; oeSplit := Split; oeSplitRemove := SplitRemove; oeNewMin := NewMin; oeNoChangeMin := NoChangeMin; oeSelectTrialPoint := SelectTrialPoint; oeDeselectTrialPoint := DeselectTrialPoint; oeSelectTargetPoint := SelectTargetPoint; oeDeselectTargetPoint := DeselectTargetPoint; oeDrawBar := DrawBar; oeRemoveBar := RemoveBar; <* LL.sup = VBT.mu *> END; PROCEDURE CPViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, CPAlgClass.T) END IsCompat; PROCEDURESetup (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Setup; PROCEDUREAddPoint (view: T ; <*UNUSED*> p: R2.T ; <*UNUSED*> N: INTEGER ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END AddPoint; PROCEDURENotProcessed (view: T ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NotProcessed; PROCEDURERemoveNotProcessed (view: T ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RemoveNotProcessed; PROCEDUREActiveR (view: T ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ActiveR; PROCEDURERemoveActiveR (view: T ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RemoveActiveR; PROCEDURECloseR (view: T ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END CloseR; PROCEDURERemoveCloseR (view: T ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RemoveCloseR; PROCEDURESplit (view: T ; <*UNUSED*> x: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Split; PROCEDURESplitRemove (view: T ; <*UNUSED*> x: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SplitRemove; PROCEDURENewMin (view: T ; <*UNUSED*> p1: R2.T ; <*UNUSED*> p2: R2.T ; <*UNUSED*> c1: R2.T ; <*UNUSED*> c2: R2.T ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NewMin; PROCEDURENoChangeMin (view: T ; <*UNUSED*> p1: R2.T ; <*UNUSED*> p2: R2.T ; <*UNUSED*> c1: R2.T ; <*UNUSED*> c2: R2.T ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NoChangeMin; PROCEDURESelectTrialPoint (view: T ; <*UNUSED*> x: R2.T ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SelectTrialPoint; PROCEDUREDeselectTrialPoint (view: T ; <*UNUSED*> x: R2.T ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DeselectTrialPoint; PROCEDURESelectTargetPoint (view: T ; <*UNUSED*> trialp: R2.T ; <*UNUSED*> targp: R2.T ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END SelectTargetPoint; PROCEDUREDeselectTargetPoint (view: T ; <*UNUSED*> trialp: R2.T ; <*UNUSED*> targp: R2.T ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DeselectTargetPoint; PROCEDUREDrawBar (view: T ; <*UNUSED*> y: REAL ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DrawBar; PROCEDURERemoveBar (view: T ; <*UNUSED*> y: REAL ; <*UNUSED*> x1: REAL ; <*UNUSED*> x2: REAL ; <*UNUSED*> big: BOOLEAN ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RemoveBar; BEGIN END CPViewClass.