ViewerForkers.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson (RRA) June 10, 1985 4:08:31 pm PDT
DIRECTORY
ViewerOps USING [PaintHint],
ViewerClasses USING [Viewer];
ViewerForkers:
CEDAR DEFINITIONS ~
BEGIN
ForkPaint:
PROC [viewer: ViewerClasses.Viewer, hint: ViewerOps.PaintHint,
clearClient:
BOOL ←
TRUE, whatChanged:
REF
ANY ←
NIL, tryShortCuts:
BOOL ←
FALSE];
Forks a call on ViewerOps.PaintViewer. If the painting call takes place, then it will take place in the order of the calls to ForkPaint.
If tryShortCuts, then previous calls can cause this call to be avoided, otherwise this painting call will be done regardless of peviously queued calls.
ForkCall:
PROC [viewer: ViewerClasses.Viewer ←
NIL, proc: CallBack, data:
REF ←
NIL];
CallBack: TYPE = PROC [data: REF];
Forks a call on the user-provided procedure. If a viewer is specified, then this call will be serialized with the calls for this viewer through this interface (including the painting calls).
END.