<<>> <> <> <> <> <<>> DIRECTORY ViewerClasses USING [PaintHint, Viewer]; ViewerForkers: CEDAR DEFINITIONS ~ BEGIN ForkPaint: PROC [viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL ¬ TRUE, whatChanged: REF ANY ¬ NIL, tryShortCuts: BOOL ¬ FALSE]; <> <> <<>> ForkCall: PROC [viewer: ViewerClasses.Viewer ¬ NIL, proc: CallBack, data: REF ¬ NIL]; CallBack: TYPE = PROC [data: REF]; <> END.