-- 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. † StyleToolGraphicsMisc.mesa Written by Linda Gass September 23, 1982 12:36 pm Last Edit by Linda Gass November 4, 1982 3:35 pm Κ– "Mesa" style˜J™~šΟk;˜;Jš œœœœLœ ˜—Jš œœ œœœ˜EJšœ œœœœœœœœœRœΟc%˜IprocšΟnœ œœœ˜NKšŸ œ œ˜2Kš Ÿ œ œ!œœœ˜NKšŸ œ œ œœ˜PKšŸœ œ œœ˜TKšŸœ œœœ˜GKšŸœ œœœ˜HKšŸœ œœœ˜JKšŸœ œœœ˜FKšŸœ œœœ˜IKšŸœ œœœ˜FKšŸœ œœœ˜GJšœ˜—…—1