PeanutWindow.mesa; Written by Scott McGregor, February 1983
Last edited by McGregor on March 4, 1983 9:11 am
Last edited by Paxton on March 3, 1983 9:30 am
DIRECTORY
Menus
USING [ClickProc],
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.ClickProc, data:
REF
ANY ←
NIL, fork:
BOOL ←
TRUE, guarded:
BOOL ←
FALSE] ;
Add a new command to the one-line peanut menu (saved across destroy of window)
AddButton:
PROC [name: Rope.
ROPE, proc: Menus.ClickProc, data:
REF
ANY ←
NIL, fork:
BOOL ←
TRUE, guarded:
BOOL ←
FALSE] ;
Add a new button to the button area below the menu (not saved across destroy of window)
Create:
PROC
RETURNS [new:
BOOL] ;
Create the peanut window
Destroy:
PROC ;
Destroy the peanut window
abortFlag:
BOOL;
END.