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