<> <> <> <> DIRECTORY IO, Graphics, Rope, TSOutput, SirPress, TSFont; TSOutputPress: CEDAR DEFINITIONS = BEGIN PressState: TYPE = REF PressStateRec; PressStateRec: TYPE = RECORD [ graphicsContext: Graphics.Context, -- Draw graphics through a Context pressHandle: SirPress.PressHandle, -- Text goes directly to the press file pipe: SirPress.Pipe, curFont: TSFont.Ref _ NIL ]; CreateWithCursor: PROCEDURE [stream: IO.STREAM, documentName: Rope.ROPE, cursorObject: SirPress.CursorObject] RETURNS [handle: TSOutput.Handle]; SetFont: PROCEDURE [pressState: PressState, font: TSFont.Ref]; END. Michael Plass, September 16, 1982 12:22 pm: Changed fileName parameter to IO.STREAM. Michael Plass, November 2, 1982 9:58 am: Made into CEDAR interface. Michael Plass, November 3, 1982 10:53 am: CursorObject.