DIRECTORY CD, Rope USING [ROPE]; CDOps: CEDAR DEFINITIONS = BEGIN CreateDesign: PROC [technology: CD.Technology] RETURNS [design: CD.Design]; ResetDesign: PROC [design: CD.Design]; IncludeApplication: PROC [design: CD.Design, aptr: CD.ApplicationPtr, draw: BOOL_TRUE]; IncludeApplicationList: PROC [design: CD.Design, al: CD.ApplicationList, draw: BOOL_TRUE]; RemoveApplication: PROC [design: CD.Design, aptr: CD.ApplicationPtr, draw: BOOL_TRUE]; ReOrderApplication: PROC [design: CD.Design, aptr: CD.ApplicationPtr]; AddAnObject: PROC[design: CD.Design, ob: CD.ObPtr, location: CD.DesignPosition, orientation: CD.Orientation_CD.original]; QuickDrawDesign: PROC [design: CD.Design, pr: CD.DrawRef]; DrawDesign: PROC [design: CD.Design, pr: CD.DrawRef]; Redraw: PROC [design: CD.Design, r: CD.DesignRect_all, eraseFirst: BOOL_TRUE]; DelayedRedraw: PROC [design: CD.Design, r: CD.DesignRect_all, eraseFirst: BOOL_TRUE]; DoTheDelayedRedraws: PROC [design: CD.Design]; all: PRIVATE CD.Rect = [FIRST[CD.Number], FIRST[CD.Number], LAST[CD.Number], LAST[CD.Number]]; SetAppList: PROC [design: CD.Design, appList: CD.ApplicationList _ NIL] = INLINE {design^.actual.first.specific.contents _ appList}; AppList: PROC [design: CD.Design] RETURNS [CD.ApplicationList] = INLINE {RETURN[design^.actual.first.specific.contents]}; PointedApplication: PROC [design: CD.Design, pos: CD.DesignPosition] RETURNS [CD.ApplicationPtr]; SelectedApplication: PROC [design: CD.Design] RETURNS [first: CD.ApplicationPtr, multiple: BOOL]; Info: PROC[ob: CD.ObPtr] RETURNS [Rope.ROPE]; END. 8CDOps.mesa (part of Chipndale) by Christian Jacobi February 24, 1984 2:03 pm last edited by Christian Jacobi February 24, 1984 2:03 pm --does not open a viewer --conveniant procedure; sets selection according to internal mode --inclusive selection --ommit selection --does the DelayedRedraw'swhich have not yet been done --first: returns ref to any selected application if there is one or more, otherwise nil. --multiple: more than one application is selected --Remark --All procedures do not queue; proper synchronization by the caller is assumed. Êë˜Jšœ%™%Jšœ0™0Jšœ;™;J˜šÏk ˜ Jšœ˜Jšœœœ˜J˜—JšÏnœœ œ˜Jš˜J˜š ž œœœ œ œ ˜KJšœ™—Jšž œœ œ ˜&J˜Jš žœœ œœœœ˜WJš žœœ œ œœœ˜ZJš žœœ œœœœ˜VJšžœœ œœ˜FJ˜šž œœ œ œ˜3šœ œœ œ ˜FJšœA™A——J˜šžœœ œ œ ˜:Jšœ™—J˜šž œœ œ œ ˜5Jšœ™—J˜Jš žœœ œ œœœ˜NJš ž œœ œ œœœ˜Ušžœœ œ ˜.Jšœ6™6J˜Jšœœœ œœ œœ œœ œœ ˜^—J˜šž œœ œ'œ˜IJšœ4˜:—J˜šžœœ œ œ˜@Jšœœ*˜8—J˜šžœœ œœ˜EJšœœ˜—šžœœ œ ˜.Jšœ œœ˜3JšœX™XJšœ1™1—J˜Jš žœœœœœ˜-J˜Jšœ˜J˜Jšœ™JšœO™OJ™—…—. Q