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