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