<> <> <> <<>> 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]; <> <> <<>> ForkCall: PROC [viewer: ViewerClasses.Viewer _ NIL, proc: CallBack, data: REF _ NIL]; CallBack: TYPE = PROC [data: REF]; <> END.