DIRECTORY IO, Rope, ViewerClasses; GGError: CEDAR DEFINITIONS = BEGIN NotYetImplemented: SIGNAL; Problem: SIGNAL [msg: Rope.ROPE]; MsgType: TYPE = {oneLiner, begin, middle, end}; Viewer: TYPE = ViewerClasses.Viewer; ClearHerald: PROC [feedback: Viewer]; Blink: PROC [feedback: Viewer]; OpenTypescript: PROC [feedback: Viewer]; GetTypescriptStream: PROC RETURNS [IO.STREAM]; 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. NFile: GGError.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Last edited by: Eric Bier on July 28, 1986 10:37:25 pm PDT Contents: Routines for handling user error messages throughout Gargoyle. Pier, October 21, 1986 4:52:26 pm PDT In the following calls, the destination viewer may not be used, as in AppendTypescript or PutFTypescript, but should be supplied by the caller in case the semantics change later Remove any messages from the feedback line. there is now one global typescript managed by GGError there is now one global typescript managed by GGError Κ£˜code™Kšœ Οmœ1™