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. šGriffinUserMessage.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Written by: Maureen Stone, September 19, 1985 4:41:58 pm PDT Κ8˜codešœΟkœ™Kšœ Οmœ1™