<<--File: IPTopOpsPrivate.mesa>> <> <<--Intro: This is a private interface>> DIRECTORY Rope, IP, IPCTG, IPCoTab, IPTop, IPTopOpRecs; IPTopOpsPrivate: CEDAR DEFINITIONS = BEGIN OPEN TOR: IPTopOpRecs; <<--Private>> Shrink1: PROC[top: IPTop.Ref, co: IPCoTab.Component, keepTrack: BOOL _ FALSE] RETURNS [fr: TOR.FRShrink1, ir: TOR.IRInsertCoAtCorner]; InsertCo: PROC[top: IPTop.Ref, co: IPCoTab.Component, chToSplit, negBnd, posBnd: IPCTG.Channel, sideHint: IPCTG.Side, whichFirstHint: [1..2], keepTrack: BOOL _ FALSE] RETURNS [fr: TOR.FRInsertCo, ir: TOR.RAny]; RemoveCo: PROC[top: IPTop.Ref, co: IPCoTab.Component, shrinkDirectn: IPCTG.ChType, keepTrack: BOOL _ FALSE] RETURNS [fr: TOR.FRRemoveCo, ir: TOR.RAny]; <<-- The belows are strictly private, ie. Use at own risk>> SetCoCornerSp: PROC[co: IPCoTab.Component, ct: IPCoTab.CornerTypes, sp: IPCoTab.CornerSpace] RETURNS [ir: REF IPTopOpRecs.IRSetCoCornerSpRec]; CreateComponent2: PROC[top: IPTop.Ref, name: Rope.ROPE, shape: IP.ShapeRep, active: BOOL _ TRUE, from: IPCoTab.Component _ NIL] RETURNS[IPCoTab.Component]; <<-- If from # NIL THEN name:, shape:, active: are IGNORED>> <<--Used in IPTopEditOpsImpl.SpawnComps>> DestroyComponent2: PROC[top: IPTop.Ref, co: IPCoTab.Component]; <<--Used in IPTopEditOpsImpl.SpawnComps>> END.