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