-- File: SVEditToolMenus.mesa
-- Last edited by Bier on December 18, 1982 1:46 am
-- Author: Eric Bier on October 5, 1982 1:04 pm
-- Contents: Procedures which build sections of the EditTool.

DIRECTORY
    SVEditUser;

SVEditToolMenus: DEFINITIONS =
BEGIN

EditToolData: TYPE = SVEditUser.EditToolData;

entryHeight: CARDINAL = 15;    -- height of a line of items
entryVSpace: CARDINAL = 1;    -- vertical leading between lines
entryHSpace: CARDINAL = 4; -- horizontal space between items on a line
column0: CARDINAL = 0; -- horizontal space between margin and column 0;
column1: CARDINAL = 80; -- horizontal space between margin and column 1;
column2: CARDINAL = 160; -- horizontal space between margin and column 2.
column3: CARDINAL = 290; -- horizontal space between margin and column 3;

BuildCurrentSceneSection: PROC [editToolData: EditToolData];
BuildCompositeSection: PROC [editToolData: EditToolData];
BuildSphereSection: PROC [editToolData: EditToolData];
BuildBlockSection: PROC [editToolData: EditToolData];
BuildCylinderSection: PROC [editToolData: EditToolData];
BuildConeSection: PROC [editToolData: EditToolData];
BuildTorusSection: PROC [editToolData: EditToolData];
BuildLinearSweepSection: PROC [editToolData: EditToolData];
BuildRevoluteSweepSection: PROC [editToolData: EditToolData];
BuildCopySection: PROC [editToolData: EditToolData];
BuildRenameSection: PROC [editToolData: EditToolData]; -- (B)
BuildMoveSection: PROC [editToolData: EditToolData];    -- (B)
BuildTransformSection: PROC [editToolData: EditToolData];
BuildListingSection: PROC [editToolData: EditToolData];
BuildCameraSection: PROC [editToolData: EditToolData];
BuildArtworkSection: PROC [editToolData: EditToolData];
BuildTubeArtworkSection: PROC [editToolData: EditToolData];
BuildBoxArtworkSection: PROC [editToolData: EditToolData];
BuildArtworkTransformSection: PROC [editToolData: EditToolData];
BuildLightSourceSection: PROC [editToolData: EditToolData];
AddARule: PROC [editToolData: EditToolData];

END.