<> <> <> <> DIRECTORY TSTypes, TSObject, TSFont, Rope; TSOutput: CEDAR DEFINITIONS = BEGIN Handle: TYPE = REF OutputRec; OutputRec: TYPE = RECORD [ charProc: CharProc, ruleProc: RuleProc, colorProc: ColorProc, newPageProc: NewPageProc, pageSizeProc: PageSizeProc, finishProc: FinishProc, outputState: REF ANY ]; CreateViewer: PROCEDURE [viewerName: Rope.ROPE _ NIL] RETURNS [Handle]; CreatePressFile: PROCEDURE [fileName: Rope.ROPE] RETURNS [Handle]; ShipOut: PROCEDURE [self: Handle, page: TSObject.BoxRec]; BoxOut: PROCEDURE [self: Handle, xRef, yRef: TSTypes.Dimn, box: TSObject.BoxRec]; Close: PROCEDURE [self: Handle]; CharProc: TYPE = PROCEDURE [self: Handle, x, y: TSTypes.Dimn, char: CHAR, font: TSFont.Ref]; RuleProc: TYPE = PROCEDURE [self: Handle, leftX, bottomY, width, height: TSTypes.Dimn]; ColorProc: TYPE = PROCEDURE [self: Handle, hue, saturation, brightness: REAL]; NewPageProc: TYPE = PROCEDURE [self: Handle]; PageSizeProc: TYPE = PROCEDURE [self: Handle, height, width: TSTypes.Dimn]; FinishProc: TYPE = PROCEDURE [self: Handle]; END. Michael Plass, November 2, 1982 10:23 am. CEDARized. Michael Plass, November 16, 1982 2:03 pm. Added PageSizeProc.