<> <> <> DIRECTORY StyleToolDefs USING [StyleToolHandle], ViewerClasses USING [Viewer]; StyleToolBuilders: CEDAR DEFINITIONS = BEGIN OPEN StyleToolDefs; <> 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.