DIRECTORYContainers USING [Container],Icons USING [IconFlavor],Menus USING [ClickProc, Menu],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, redisplay: BOOL _ TRUE] ;Create: PROC RETURNS [new: BOOL] ;Destroy: PROC ;peanutParent: Containers.Container;newMailIcon: Icons.IconFlavor;noMailIcon: Icons.IconFlavor;messageSetIcon: Icons.IconFlavor;dirtyMessageSetIcon: Icons.IconFlavor;mailMessageIcon: Icons.IconFlavor;dirtyMailMessageIcon: Icons.IconFlavor;menu: Menus.Menu;abortFlag: BOOL;END.  l  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Last Edited by: Pausch, July 14, 1983 2:25 pm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)the peanut viewer will be repainted if 'redisplay' is TRUE.Create the peanut windowDestroy the peanut windowÊ  ˜ Iproc–"Cedar" stylešœ;™;Kšœ0™0Kšœ.™.J™-unitšÏk	˜	Jšœœ˜Jšœœ˜Jšœœ˜Jšœœœ˜—Lšœœœ˜'I	modheader˜ šÏn
œœœ˜$Mšœ%™%—M˜ šž
œœœ˜Mšœ*™*—M˜ šž
œœœ˜"Mšœ3™3—M˜ šž
œœœœœœœœœœ˜zMšœN™NM™ —šž	œœœœœœœœœœœœ˜‘MšœW™WMšÏc;™;—M˜ šžœœœœ˜"Mšœ™—M˜ šžœœ˜Mšœ™—M˜ Mšœ#˜#M˜ M˜ Mšœ˜Mšœ˜Mšœ!˜!Mšœ&˜&Mšœ"˜"Mšœ'˜'M˜ Mšœ˜M˜ Mšœœ˜M˜ Mšœ˜J˜ J˜ — …—    p  í  