<> <> <> <> <> <<>> DIRECTORY IO, Rope, ViewerClasses; GGError: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; Problem: SIGNAL [msg: Rope.ROPE]; MsgType: TYPE = {oneLiner, begin, middle, end}; <> OpenTypescript: PROC [feedback: Viewer]; <> <<>> GetTypescriptStream: PROC RETURNS [IO.STREAM]; ClearHerald: PROC [feedback: Viewer]; <> Blink: PROC [feedback: Viewer]; Append: PROC [feedback: Viewer, msg: Rope.ROPE, msgType: MsgType]; -- to script and feedback line AppendHerald: PROC [feedback: Viewer, msg: Rope.ROPE, msgType: MsgType]; -- to feedback line only AppendTypescript: PROC [feedback: Viewer, msg: Rope.ROPE, msgType: MsgType]; -- to script only PutF: PROC [feedback: Viewer, msgType: MsgType, format: Rope.ROPE _ NIL, v1, v2, v3, v4, v5: IO.Value _ [null[]] ]; -- to script and feedback line PutFHerald: PROC [feedback: Viewer, msgType: MsgType, format: Rope.ROPE _ NIL, v1, v2, v3, v4, v5: IO.Value _ [null[]] ]; -- to feedback line only PutFTypescript: PROC [feedback: Viewer, msgType: MsgType, format: Rope.ROPE _ NIL, v1, v2, v3, v4, v5: IO.Value _ [null[]] ]; -- to script only END.