PeanutWindow.mesa; Written by Scott McGregor, February 1983
Last edited by McGregor on February 28, 1983 1:26 pm
DIRECTORY
Menus
USING [MenuProc],
Rope
USING [
ROPE];
PeanutWindow:
CEDAR
DEFINITIONS =
BEGIN
OutputRope:
PROC [text: Rope.
ROPE] ;
Write a rope to the peanut typescript
OutputChar:
PROC [char:
CHAR] ;
Write a character to the peanut typescript
SetNewMail:
PROC [newMail:
BOOL] ;
Change the peanut window to indicate new mail state
AddCommand:
PROC [name: Rope.
ROPE, proc: Menus.MenuProc, data:
REF
ANY ←
NIL, fork:
BOOL ←
TRUE, guarded:
BOOL ←
FALSE] ;
Add a new command to the one-line peanut menu
Create:
PROC ;
Create the peanut window
Destroy:
PROC ;
Destroy the peanut window
END.