File: GGError.mesa
Copyright © 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
DIRECTORY
IO, Rope, ViewerClasses;
GGError:
CEDAR
DEFINITIONS =
BEGIN
Viewer: TYPE = ViewerClasses.Viewer;
Problem: SIGNAL [msg: Rope.ROPE];
MsgType: TYPE = {oneLiner, begin, middle, end};
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.
OpenTypescript:
PROC [feedback: Viewer];
There is now one global typescript managed by GGError
GetTypescriptStream: PROC RETURNS [IO.STREAM];
ClearHerald:
PROC [feedback: Viewer];
Remove any messages from the feedback line.
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.