DIRECTORY Rope, IP, IPCTG, IPCoTab, IPTop, IPTopOpRecs; IPTopOpsPrivate: CEDAR DEFINITIONS = BEGIN OPEN TOR: IPTopOpRecs; 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]; 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]; DestroyComponent2: PROC[top: IPTop.Ref, co: IPCoTab.Component]; END. H--File: IPTopOpsPrivate.mesa Last Edited by: CSChow, February 1, 1985 11:03:48 am PST --Intro: This is a private interface --Private -- The belows are strictly private, ie. Use at own risk -- If from # NIL THEN name:, shape:, active: are IGNORED --Used in IPTopEditOpsImpl.SpawnComps --Used in IPTopEditOpsImpl.SpawnComps Êý˜J•StartOfExpansion[]™J™8Icode˜K™$K˜šÏk ˜ K˜Kšœ˜Kšœ˜Kšœ˜K˜Kšœ ˜ —K˜š œœ œœœœ˜AK˜K™ KšÏnœœ3œœœœœ˜†K˜KšžœœCœœ*œœœœœ˜ÒK˜Kšžœœ7œœœœœœ˜—K˜K˜K™7Kšž œœJœœ!˜ŽK– "Cedar" style˜– "Cedar" stylešžœœœ œœœœœ˜›K– "Cedar" stylešœ8™8K– "Cedar" stylešœ%™%—K– "Cedar" style˜– "Cedar" stylešžœœ(˜?K– "Cedar" stylešœ%™%—K˜K˜Kšœ˜——…—ê/