[Cyan]<PreISLCedar>StyleTool>StyleToolGraphicsMisc.mesa!1

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.