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