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. File: GGError.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Last edited by: Eric Bier on January 27, 1987 10:13:14 pm PST 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. There is now one global typescript managed by GGError Remove any messages from the feedback line. Κ‘˜code™Kšœ Οmœ1™