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.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.