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