-- GriffinDefs  Main interface
-- January 10, 1980 1:12 PM
-- Stone+Tiberi October 23, 1979 4:19 PM
-- Tiberi December 10, 1979 11:28 AM
-- Last Edited by: Stone, February 11, 1983 6:11 pm

DIRECTORY
 Rope USING [ROPE],
 PointDefs: FROM "PointDefs",
 ObjectDefs: FROM "ObjectDefs",
 MenuDefs: FROM "MenuDefs";

GriffinDefs: DEFINITIONS =
BEGIN
UndoOp: TYPE = {move,xform,delete};

GriffinInit: PROGRAM;

--exported by figureops
RefreshGrid: PROCEDURE;
Grid: PROCEDURE[pt: PointDefs.ScrPt] RETURNS[PointDefs.ScrPt];
NoRefresh: BOOLEAN;


--Undoing:
SetUndoOp: PROCEDURE [op: UndoOp];
UndoMove: PROCEDURE;
UndoXForm: PROCEDURE;
UndoDelete: PROCEDURE;

--text:
TypeIn: PROCEDURE[ch: CHARACTER];
TypeInAtControlPt: PROCEDURE;
TypeIntoCaption: PROCEDURE [caption: ObjectDefs.ObjectHandle];
TypeIntoMenuItem: MenuDefs.MenuProc;
EndTypeIn: PROCEDURE;

UserMessage: SIGNAL[string: Rope.ROPE];
ShowUserMessage: PROCEDURE[string: Rope.ROPE];
NotXM,GriffinFull: SIGNAL;

--menus:
StartFigureMenus: PROC; --FigureOps
StartObjectMenus: PROC; --ObjectOps
StartDrawMenus: PROC;  --DrawOps
StartMainMenus: PROC;  --GriffinMain

editMenu, objectMenu, styleMenu, shapeMenu, splineMenu, filesMenu, xformMenu, overlapMenu, displayMenu, viewMenu, topMenu: MenuDefs.MenuHandle;

--conversion routine from GriffinText
AppendNumber: PROC [rope: Rope.ROPE, number: INTEGER] RETURNS [Rope.ROPE];
END.