<<>> <> <> <> <> DIRECTORY Controls, Imager, Rope, Vector2, ViewerClasses; ControlsPrivate: CEDAR DEFINITIONS ~ BEGIN <> ROPE: TYPE ~ Rope.ROPE; Control: TYPE ~ Controls.Control; Mouse: TYPE ~ Controls.Mouse; Context: TYPE ~ Imager.Context; Viewer: TYPE ~ ViewerClasses.Viewer; Event: TYPE ~ RECORD [mouse: Mouse, value, valuePrev: REAL]; RopeFromValueProc: TYPE ~ PROC [control: Control] RETURNS [valueRope: ROPE ¬ NIL, repaint: BOOL ¬ TRUE]; SetValueFromRopeProc: TYPE ~ PROC [control: Control, valueRope: ROPE]; <> ActivateViewer: PROC [viewer: Viewer]; <> <> <<>> MaybeForkControlProc: PROC [control: Control]; <> <<>> ForkControlProc: PROC [control: Control]; <> <<>> ControlProcBusy: PROC [control: Control] RETURNS [BOOL]; <> <> EnableMouseTrapping: PROC [yes: BOOL]; <> <<>> NewSliderDial: PROC [control: Control]; <> <<>> NotifySliderDial: PROC [control: Control, mouse: Mouse]; <> <<>> PaintSliderDial: ViewerClasses.PaintProc; <> <<>> UnTick: PROC [context: Context, control: Control]; <> <<>> Tick: PROC [context: Context, control: Control, t: REAL, detent: BOOL ¬ FALSE, width: NAT ¬ 1]; <> <<>> GetQueue: PROC [control: Control] RETURNS [LIST OF Event]; <> <<>> RegisterRopeFromValueProc: PROC [control: Control, proc: RopeFromValueProc]; <> <<>> RegisterValueFromRopeProc: PROC [control: Control, proc: SetValueFromRopeProc]; <> <> NewFunction: PROC [control: Control]; <> <<>> NotifyFunction: PROC [control: Control, mouse: Mouse]; <> <<>> PaintFunction: ViewerClasses.PaintProc; <> <<>> ResetFunction: PROC [control: Control, repaint: BOOL ¬ TRUE]; <> <> NewContour: PROC [control: Control]; <> <<>> NotifyContour: PROC [control: Control, mouse: Mouse]; <> <<>> PaintContour: ViewerClasses.PaintProc; <> <<>> ClearContour: PROC [control: Control, repaint: BOOL ¬ TRUE]; <> <> NewSketch: PROC [control: Control]; <> <<>> NotifySketch: PROC [control: Control, mouse: Mouse]; <> <<>> PaintSketch: ViewerClasses.PaintProc; <> <<>> ClearSketch: PROC [control: Control, repaint: BOOL ¬ TRUE]; <> <<>> DeleteLastSketchStroke: PROC [control: Control, repaint: BOOL ¬ TRUE]; <> <<>> END.