File: GGError.mesa
Copyright © 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
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;
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
ClearHerald: PROC [feedback: Viewer];
Remove any messages from the feedback line.
Blink: PROC [feedback: Viewer];
OpenTypescript: PROC [feedback: Viewer];
there is now one global typescript managed by GGError
GetTypescriptStream: PROC RETURNS [IO.STREAM];
there is now one global typescript managed by GGError
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.ROPENIL, v1, v2, v3, v4, v5: IO.Value ← [null[]] ]; -- to script and feedback line
PutFHerald: PROC [feedback: Viewer, msgType: MsgType, format: Rope.ROPENIL, v1, v2, v3, v4, v5: IO.Value ← [null[]] ]; -- to feedback line only
PutFTypescript: PROC [feedback: Viewer, msgType: MsgType, format: Rope.ROPENIL, v1, v2, v3, v4, v5: IO.Value ← [null[]] ]; -- to script only
END.