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.