DIRECTORY Rope USING [ROPE], StyleToolDefs USING [MarginType, PageBoundaryType, StyleToolHandle], StyleToolGraphics, VFonts USING [Font]; StyleToolGraphicsMisc: CEDAR DEFINITIONS = BEGIN OPEN StyleToolDefs; defaultPageWidth: REAL = 8.5; defaultPageLength: REAL = 11.0; defaultLeftMargin: REAL = 1.0; defaultRightMargin: REAL = 1.0; defaultTopMargin: REAL = 1.0; defaultBottomMargin: REAL = 1.0; defaultBindingMargin: REAL = 0.5; defaultUnits: Rope.ROPE; defaultInterval: INTEGER = 40; numbersContainerFont: VFonts.Font; setButtonFont: VFonts.Font; realWidth: INTEGER; -- width of text viewer for real #'s CreateNumbersContainer: PROCEDURE [handle: StyleToolHandle] RETURNS [INTEGER]; SetUpNumbers: PROCEDURE [handle: StyleToolHandle]; InsidePage: PROCEDURE [handle: StyleToolHandle, x, y: REAL] RETURNS [BOOLEAN]; HitAMargin: PROCEDURE [handle: StyleToolHandle, x,y: REAL] RETURNS [MarginType]; HitAPage: PROCEDURE [handle: StyleToolHandle, x,y: REAL] RETURNS [PageBoundaryType]; ScreenToLeftMargin: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; ScreenToRightMargin: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; ScreenToBindingMargin: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; ScreenToTopMargin: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; ScreenToBottomMargin: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; ScreenToPageWidth: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; ScreenToPageLength: PROCEDURE [handle: StyleToolHandle] RETURNS [REAL]; END. ΦStyleToolGraphicsMisc.mesa Written by Linda Gass September 23, 1982 12:36 pm Last Edit by Linda Gass November 4, 1982 3:35 pm Last Edited by: Plass, March 28, 1983 2:56 pm Pavel, June 25, 1985 5:05:16 pm PDT Κ˜Jšœ™J™1J™0šœ-™-Icode™#—J˜šΟk ˜ Jšœœœ˜—Jšœœ1˜DJ˜Jšœœ˜J˜J˜Jš œœ œœœ˜DJšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜ Jšœœ˜!Jšœœ˜Jšœœ˜J˜J˜"J˜Jšœ œΟc$˜8J˜JšΟnœ œœœ˜NJšŸ œ œ˜2Jš Ÿ œ œ!œœœ˜NJšŸ œ œ œœ˜PJšŸœ œ œœ˜TJšŸœ œœœ˜GJšŸœ œœœ˜HJšŸœ œœœ˜JJšŸœ œœœ˜FJšŸœ œœœ˜IJšŸœ œœœ˜FJšŸœ œœœ˜GJšœ˜—…—άΈ