ControlsPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, October 8, 1986 10:48:14 pm PDT
DIRECTORY Controls, Imager, Vector2, ViewerClasses;
ControlsPrivate: CEDAR DEFINITIONS
~ BEGIN
OPEN Controls;
Miscellaneous
MaybeForkControlProc: PUBLIC PROC [control: Control];
If control has a non-busy proc, for it.
ForkControlProc: PUBLIC PROC [control: Control];
If control has a proc, fork it.
ControlProcBusy: PUBLIC PROC [control: Control] RETURNS [BOOL];
Test if control has a busy proc.
Sliders/Dials
NewSliderDial: PUBLIC PROC [control: Control];
Slider or dial initialization.
NotifySliderDial: PUBLIC PROC [Control];
Called by Controls notify proc if control is a slider or dial.
PaintSliderDial: ViewerClasses.PaintProc;
Paint proc if control is a slider or dial.
Functions
NewFunction: PUBLIC PROC [control: Control];
Function initialization.
NotifyFunction: PUBLIC PROC [Control];
Called by Controls notify proc if control is a function.
PaintFunction: ViewerClasses.PaintProc;
Paint proc if control is a function.
ResetFunction: PUBLIC PROC [control: Control, repaint: BOOL ← TRUE];
Set the function values to the function minimum and optionally repaint.
Contours
NewContour: PUBLIC PROC [control: Control];
Contour initialization.
NotifyContour: PUBLIC PROC [Control];
Called by Controls notify proc if control is a contour.
PaintContour: ViewerClasses.PaintProc;
Paint proc if control is a contour.
ClearContour: PUBLIC PROC [control: Control, repaint: BOOL ← TRUE];
Clear the contour and optionally repaint.
Sketches
NewSketch: PUBLIC PROC [control: Control];
Contour initialization.
NotifySketch: PUBLIC PROC [Control];
Called by Controls notify proc if control is a sketch.
PaintSketch: ViewerClasses.PaintProc;
Paint proc if control is a sketch.
ClearSketch: PUBLIC PROC [control: Control, repaint: BOOL ← TRUE];
Clear the sketcher and optionally repaint.
END.