<> <> DIRECTORY ViewerClasses USING [Viewer], PointDefs USING [ScrPt], Imager USING[Context]; GriffinViewer: CEDAR DEFINITIONS = { GetViewer: PROC RETURNS [ViewerClasses.Viewer]; PaintProc: TYPE = PROC[dc: Imager.Context]; ProcRec: TYPE = RECORD[proc: PaintProc]; DoPaint: PROC [proc: PaintProc]; ClipPointToViewer: PROC[pt: PointDefs.ScrPt] RETURNS[PointDefs.ScrPt]; }.