MessageWindow.mesa; Edited by McGregor on 9-Oct-81 8:45:38
Last Edited by: Maxwell, December 17, 1982 10:00 am
DIRECTORY
Rope USING [ROPE],
ViewerClasses USING [Viewer];
MessageWindow: CEDAR DEFINITIONS = BEGIN
Clear: PROC ;
Clear out the message window.
Append: PROC [message: Rope.ROPE, clearFirst: BOOLFALSE] ;
Append new information to the message window.
Blink: PROC ;
Flash the message window (to get user's attention).
ReadFrom: PROC RETURNS [message: Rope.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.
Destroy: PROC ;
Do this if you really didn't want a message window this session.
Confirm: PROC [prompt: Rope.ROPENIL] RETURNS [BOOLEAN] ;
Convenient confirmation from user (must be called from a process other than the main notification process to run).
messageWindow: PRIVATE ViewerClasses.Viewer;
Handle to system message viewer
END.