juno-app/src/JunoError.i3

 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.