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. øStyleToolBuilders.mesa; Last Edit by Linda Gass on November 4, 1982 2:24 pm Last Edited by: Plass, March 28, 1983 2:55 pm For uniformity, I'll create some standard distance between entries in the tool. -- ---- ---- ---- ---- ---- ---- ---- ÊP˜Jšœ™Jšœ3™3Jšœ-™-J˜JšÏk ˜ ˜Jšœœ˜&Jšœœ ˜J˜—Jšœœ œ˜&J˜Jšœœ˜J˜JšœO™OJ˜Jšœ œÏc&˜BJšœ œž4˜PJšœ œž+˜GJ˜Jšœ%™%J˜JšÏnœ œœ˜EJ˜JšŸœ œœ˜FJ˜šŸœœ˜3J˜—JšŸœœ˜4J˜JšŸœ œ˜5J˜JšŸœ œ˜4J˜JšŸœœ˜3J˜JšŸ œœ˜.J˜Jšœ˜J˜J˜—…—H