DIRECTORY Menus USING [ClickProc], Rope USING [ROPE]; PeanutWindow: CEDAR DEFINITIONS = BEGIN OutputRope: PROC [text: Rope.ROPE] ; OutputChar: PROC [char: CHAR] ; SetNewMail: PROC [newMail: BOOL] ; AddCommand: PROC [name: Rope.ROPE, proc: Menus.ClickProc, data: REF ANY _ NIL, fork: BOOL _ TRUE, guarded: BOOL _ FALSE] ; AddButton: PROC [name: Rope.ROPE, proc: Menus.ClickProc, data: REF ANY _ NIL, fork: BOOL _ TRUE, guarded: BOOL _ FALSE] ; Create: PROC RETURNS [new: BOOL] ; Destroy: PROC ; abortFlag: BOOL; END. 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 Write a rope to the peanut typescript Write a character to the peanut typescript Change the peanut window to indicate new mail state Add a new command to the one-line peanut menu (saved across destroy of window) Add a new button to the button area below the menu (not saved across destroy of window) Create the peanut window Destroy the peanut window Κ£˜Iproc– "Cedar" stylešœ;™;Kšœ0™0Kšœ.™.unitšΟk ˜ Jšœœ ˜Jšœœœ˜—Lšœœ œ˜'I modheader˜šΟn œœ œ˜$Mšœ%™%—M˜šž œœœ˜Mšœ*™*—M˜šž œœ œ˜"Mšœ3™3—M˜šž œœ œœœœœœ œœ˜zMšœN™NM™—šž œœ œœœœœœ œœ˜yMšœW™W—M˜šžœœœœ˜"Mšœ™—M˜šžœœ˜Mšœ™—M˜Mšœ œ˜M˜Mšœ˜J˜J˜—…—΅