GriffinUserMessage.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Written by: Maureen Stone, September 19, 1985 4:41:58 pm PDT
DIRECTORY
MenuDefs,
GriffinDefs,
RefreshDefs USING [RestoreScreen],
Rope USING [ROPE];
GriffinUserMessage: CEDAR PROGRAM
IMPORTS MenuDefs, RefreshDefs
EXPORTS GriffinDefs
~ BEGIN
ROPE: TYPE = Rope.ROPE;
messageMenu: MenuDefs.MenuHandle←NIL;
messageItem: MenuDefs.MenuItemHandle←NIL;
UserMessage: PUBLIC SIGNAL [string: ROPE] = CODE;
HideMessage: MenuDefs.MenuProc = {
MenuDefs.HideMenu[messageMenu];
RefreshDefs.RestoreScreen[];
};
ShowUserMessage: PUBLIC PROCEDURE[string: ROPE] =
BEGIN
MenuDefs.SetMenuString[messageItem, string];
MenuDefs.ShowMenu[messageMenu];
MenuDefs.HighlightMenuItem[messageItem];
RefreshDefs.RestoreScreen[];
END;
messageMenu ← MenuDefs.CreateMenu[vertical, [150, 400], NIL];
messageItem ← MenuDefs.AddMenuItem[messageMenu, "Aborted.", HideMessage];
END.