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