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:
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.
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.
ROPE ←
NIL]
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.