<> <> <> <> <> <<>> DIRECTORY Rope USING [ROPE]; MessageWindow: CEDAR DEFINITIONS = BEGIN Clear: PROC; <> Append: PROC [message: Rope.ROPE, clearFirst: BOOL _ FALSE]; <> Blink: PROC; <> ReadFrom: PROC RETURNS [message: Rope.ROPE]; <> Confirm: PROC [prompt: Rope.ROPE _ NIL] RETURNS [BOOL]; <> END.