Copyright (C) 1992, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
Last modified on Mon May 30 20:55:34 PDT 1994 by heydon
modified on Sat Oct 17 14:23:06 PST 1992 by gnelson
<* PRAGMA LL *>
INTERFACE JunoError;
IMPORT VBT, TextPort, Wr;
PROCEDURE P(
tp: TextPort.T;
errmsg: TEXT;
start, finish: INTEGER := -1;
time: VBT.TimeStamp := 0);
<* LL.sup = VBT.mu *>
Pop up an error window in tp
containing the message errmsg
. If start #
-1 AND finish # -1
, then select the text between start
and finish
in
tp
(in pending-replace mode), and scroll the window so this selection is
visible; in this case, time
is the timestamp of the event causing the
error. Otherwise, time
is ignored.
PROCEDURE Display(v: VBT.T; errmsg: TEXT); <* LL.sup < v *>
Display the error message to the user in a pop-up window above v
.
PROCEDURE DisplayPS(wr: Wr.T; errmsg: TEXT) RAISES {Wr.Failure};
Write the appropriate PostScript code to wr
to display the error message
errmsg
in a box centered in the lower half of the output page.
END JunoError.