<> <> DIRECTORY Menus USING [MenuProc], 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.MenuProc, data: REF ANY _ NIL, fork: BOOL _ TRUE, guarded: BOOL _ FALSE] ; <> Create: PROC ; <> Destroy: PROC ; <> END.