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