<> <> <> <> <> 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.