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.
  ¦  
CtMisc.mesa
Copyright Ó 1985, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 3, 1992 1:28 pm PDT


Types
Buttons
Assumes the button.name contains either "off" or "on" (case insensitive) and toggles its state.

Return true iff "on" (case insensitive) is contained in button.name.
Printing
Print the current tioga selection at the given location with the given Imager color.
p is with respect to the upper left of the color display.
If color is NIL, use the context's current color unless context is NIL, then use $Black.
Providing a context only saves the need to reacquire the color display.
If screenStyle FALSE, use printStyle.
As PrintTiogaSelection but with a specified rope, and with a given font and size.
The (spline contour) fonts used are from the directory ///7.0/fonts/xerox/pressfonts;
they are antialiased if the context is in "smooth" mode.
If font is NIL, it is defaulted to "helvetica-mrr".
Ê  –"cedarcode" style•NewlineDelimiter
™ ™Jšœ	Ïeœ6™BJ™%J™ —JšÏk	œžœ˜*J™ JšÐblœžœž˜Jšœž˜headšÏl™Jšœžœ˜Jšœžœ˜!Jšœžœ˜$Jšžœžœ
žœ˜Jšžœžœžœ˜Jšœžœžœ˜Jšœžœ˜&—š ™šÏnœžœ˜$J™_J™ —š¡œžœžœžœ˜/J™D——š ™š¡œžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœžœ˜Jšžœ	žœ˜J™TJ™9JšœÏsœ4¢œ™XJ™GJšœ¢œ™%J˜ —š¡	œžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœžœ˜Jšœžœ˜Jšœžœ˜J™QJ™UJ™8Jšœ¢œ%™3——J˜ Jšžœ˜— …—    ~  5  