
DIRECTORY Icons, Menus, MJSContainers, Rope, ViewerClasses;

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, lineNum: Menus.MenuLine ¬ 0];
AddButton: PROC [name: Rope.ROPE, proc: Menus.ClickProc, data: REF ANY ¬ NIL, 
fork: BOOL ¬ TRUE, guarded: BOOL ¬ FALSE, redisplay: BOOL ¬ TRUE];

Create: PROC [quit, save: PROC _ NIL] RETURNS [new: BOOL];

Destroy: PROC;

SaveAllMailFiles: PROC [mailFiles: LIST OF Rope.ROPE, killViewers: BOOL];
FindMailViewer: PROC [name: Rope.ROPE] RETURNS [ViewerClasses.Viewer];
GetMailViewer: PROC [name: Rope.ROPE] RETURNS [ViewerClasses.Viewer];
CopyMessages: PROC [to: Rope.ROPE, delete: BOOL];

InternalGetMailViewer: PROC [name: Rope.ROPE] RETURNS [ViewerClasses.Viewer];

peanutParent: MJSContainers.MJSContainer;

newMailIcon: Icons.IconFlavor;
noMailIcon: Icons.IconFlavor;
messageSetIcon: Icons.IconFlavor;
dirtyMessageSetIcon: Icons.IconFlavor;
mailMessageIcon: Icons.IconFlavor;
dirtyMailMessageIcon: Icons.IconFlavor;

menu: Menus.Menu;

END.
  þ  
PeanutWindow.mesa
Copyright Ó 1985, 1990, 1992 by Xerox Corporation.  All rights reserved.
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
Willie-Sue, August 10, 1989 4:04:45 pm PDT
Doug Wyatt, March 7, 1985 11:22:50 am PST
Last changed by Pavel on March 8, 1990 1:46 pm PST
Jules Bloomenthal July 1, 1992 1:35 pm PDT
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;
quit, if non-nil, is called when the window is destroyed;
save, if non-nil, is called when the window is saved.
Destroy the peanut window.
Save all unsaved mail files and, if killViewers is TRUE, destroy them and close the main Peanut viewer.

Returns NIL if no viewer found.

Creates a new viewer if none already there; an entry proc for general client use.

Copy selected message to named file.
Not for general client use.
 ÊÆ  –(cedarcode) style•NewlineDelimiter
™ code–"Cedar" stylešœ™K–"Cedar" stylešœ
Ïeœ=™HK–"Cedar" stylešœ(™(Kšœ0™0Kšœ.™.K™-K™*K™)K™2K™*—K˜ KšÏk	œ2˜;K˜ KšÐblœžœž˜Kšœž˜K˜ šÏn
œžœžœ˜#K™&—K˜ š 
œžœžœ˜K™+—K˜ š 
œžœžœ˜!K™4—K˜ š 
œžœžœžœžœžœ	žœžœžœžœ˜—K™OK™ —š 	œžœžœžœžœžœ	žœžœžœžœžœžœ˜‘K™XKšœ;™;—K˜ š œžœžœžœžœžœ˜:K™K™9K™5—K˜ š œžœ˜K™—K˜ š œžœžœžœžœžœ˜IKšœg™gK™ —š œžœžœžœ˜FKšœÏsœ™K™ —š œžœžœžœ˜EK™QK™ —š œžœžœ
žœ˜1K™$K˜ —š œžœžœžœ˜MK™K˜ —Kšœ)˜)K˜ Kšœ˜Kšœ˜Kšœ!˜!Kšœ&˜&Kšœ"˜"Kšœ'˜'K˜ Kšœ˜K˜ Kšžœ˜— …—    ´  x  