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

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.