DIRECTORY

ViewerClasses USING [Viewer],

Graphics USING[Context];

GriffinViewer: DEFINITIONS = {

GetViewer: PROC RETURNS [ViewerClasses.Viewer];

PaintProc: TYPE = PROC[dc: Graphics.Context];

ProcRec: TYPE = RECORD[proc: PaintProc];

DoPaint: PROC [proc: PaintProc];

}.