MessageWindow.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation. All rights reserved.
Edited by McGregor on 9-Oct-81 8:45:38
Last Edited by: Maxwell, December 17, 1982 10:00 am
Bier, November 29, 1988 5:11:57 pm PST
Doug Wyatt, December 16, 1986 3:13:36 pm PST
DIRECTORY
Rope USING [ROPE];
MessageWindow: CEDAR DEFINITIONS
=
BEGIN
ROPE: TYPE ~ Rope.ROPE;
Clear:
PROC;
Clear out the message window.
Append:
PROC [message:
ROPE, clearFirst:
BOOL ¬
FALSE];
Append new information to the message window.
Blink:
PROC;
Flash the message window (to get user's attention).
ReadFrom:
PROC
RETURNS [message:
ROPE];
Freeze the world and require the user to type in a string, terminated by ESC, DEL, or CR. The termination character is part of the returned message.
Confirm:
PROC [prompt:
ROPE ¬
NIL]
RETURNS [
BOOL];
Convenient confirmation from user (must be called from a process other than the main notification process to run).
GetHistory:
PROC
RETURNS [
LIST
OF
ROPE];
Returns a list of the most recent messages.
CreateMessageWindow: PROC;
END.