<> <> <> <> DIRECTORY Imager, TSFont, Rope, ViewerClasses; TSOutputDisplay: CEDAR DEFINITIONS = BEGIN DisplayState: TYPE = REF DisplayStateRec; DisplayStateRec: TYPE = RECORD [ viewer: ViewerClasses.Viewer _ NIL, color: Imager.Color _ NIL, callBackProc: DisplayProc _ NIL, currentFont: TSFont.Ref _ NIL, imagerFont: Imager.Font _ NIL, pageHeight: REAL ]; DisplayProc: TYPE = PROCEDURE [dc: Imager.Context]; END.