<<>> <> <> <> <<>> DIRECTORY Imager, Rope, SF, ViewerClasses; <<>> CtMisc: CEDAR DEFINITIONS ~ BEGIN <> Color: TYPE ~ Imager.Color; Context: TYPE ~ Imager.Context; Rectangle: TYPE ~ Imager.Rectangle; VEC: TYPE ~ Imager.VEC; ROPE: TYPE ~ Rope.ROPE; Box: TYPE ~ SF.Box; Viewer: TYPE ~ ViewerClasses.Viewer; <> ButtonToggle: PROC [button: Viewer]; <> <<>> ButtonOn: PROC [button: Viewer] RETURNS [BOOL]; <> <> PrintTiogaSelection: PROC [ p: VEC, color: Color ¬ NIL, context: Context ¬ NIL, screenStyle: BOOL ¬ FALSE] RETURNS [error: ROPE]; <> <

> <> <> <> PrintRope: PROC [ rope: ROPE, p: VEC, color: Color ¬ NIL, font: ROPE ¬ NIL, size: REAL ¬ 14.0, context: Context ¬ NIL]; <> <> <> <> END.