[Cyan]<CedarChest6.1>StyleTool>StyleToolBuilders.mesa!1

StyleToolBuilders.mesa;

Last Edit by Linda Gass on November 4, 1982 2:24 pm

Last Edited by: Plass, March 28, 1983 2:55 pm

DIRECTORY

StyleToolDefs USING [StyleToolHandle],

ViewerClasses USING [Viewer];

StyleToolBuilders: CEDAR DEFINITIONS =

BEGIN OPEN StyleToolDefs;

For uniformity, I'll create some standard distance between entries in the tool.

entryHeight: CARDINAL = 15; -- how tall to make each line of items

entryVSpace: CARDINAL = 6; -- vertical leading space between lines with buttons

entryHSpace: CARDINAL = 10; -- horizontal space between items in a line

-- ---- ---- ---- ---- ---- ---- ----

DisplayRealInViewer: PROCEDURE [num: REAL, v: ViewerClasses.Viewer];

DisplayIntInViewer: PROCEDURE [num: INTEGER, v: ViewerClasses.Viewer];

BuildStyleNameField: PROC[handle: StyleToolHandle];

BuildFormatNameField: PROC[handle: StyleToolHandle];

BuildLooksField: PROCEDURE [handle: StyleToolHandle];

BuildRuleField: PROCEDURE [handle: StyleToolHandle];

BuildDisplayViewer: PROC [handle: StyleToolHandle];

BuildSwapArea: PROC [handle: StyleToolHandle];

END.