TSOutputDisplay.Mesa
Last Edited by: Beach, October 28, 1983 4:38 pm
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.