<<>> <> <> <> <> <> <> <<>> DIRECTORY Rope USING [ROPE]; MessageWindow: CEDAR DEFINITIONS = BEGIN ROPE: TYPE ~ Rope.ROPE; Clear: PROC; <> Append: PROC [message: ROPE, clearFirst: BOOL ¬ FALSE]; <> Blink: PROC; <> ReadFrom: PROC RETURNS [message: ROPE]; <> Confirm: PROC [prompt: ROPE ¬ NIL] RETURNS [BOOL]; <> GetHistory: PROC RETURNS [LIST OF ROPE]; <> <<>> CreateMessageWindow: PROC; END.