<<>> <> <> <> <> <> <> <> <> <> <> 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.