--File IntPhase2Defs.mesa
--October 31, 1980 1:49 PM

DIRECTORY

IntStorageDefs: FROM "IntStorageDefs" USING [ObjectName, ObjectType],
OutputDefs: FROM "OutputDefs" USING [VisibleType];

IntPhase2Defs: DEFINITIONS =

BEGIN

Item: TYPE = LONG POINTER TO ItemRecord;
NilItem: Item = NIL;

ItemRecord: TYPE = RECORD [
left,right,bottom,top: LONG INTEGER,
rel,norel,same: Item,
visible: OutputDefs.VisibleType,
kind: IntStorageDefs.ObjectType,
what: IntStorageDefs.ObjectName,
level,context: CARDINAL];

ItemSpaceGone: ERROR;

InitPhase2: PROCEDURE RETURNS [BOOLEAN];
FinishPhase2: PROCEDURE RETURNS [BOOLEAN];

-- store a bare item somewhere for later recall
BareItem: PROCEDURE [it: IntStorageDefs.ObjectName];

END.