DIRECTORY Rope USING [ROPE], CD USING [ApplicationPtr, Design, DesignPosition, ObPtr]; CDMarkObjects: CEDAR DEFINITIONS = BEGIN markOb: READONLY CD.ObPtr; markNameProperty: READONLY ATOM; markAtom: READONLY ATOM; -- Contains the class atom for alignment marks objects. MarkEnumerator: TYPE = PROC [markApp: CD.ApplicationPtr] RETURNS [quit: BOOL_FALSE]; EnumerateMarks: PROC [cellOb: CD.ObPtr_NIL, design: CD.Design_NIL, proc: MarkEnumerator] RETURNS [quit: BOOL]; FindMark: PROC [cellOb: CD.ObPtr_NIL, design: CD.Design_NIL, name: Rope.ROPE] RETURNS [CD.ApplicationPtr]; SetMarkName: PROC [markApp: CD.ApplicationPtr, name: Rope.ROPE]; GetMarkName: PROC [markApp: CD.ApplicationPtr] RETURNS [name: Rope.ROPE]; GetMarkPosition: PROC [markApp: CD.ApplicationPtr] RETURNS [CD.DesignPosition]; END. œCDMarkObjects.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Created by: Bob Mayo, June 8, 1984 12:40:57 pm PDT Redesigned by: Jacobi, September 13, 1984 3:02:09 pm PDT Last Edited: Jacobi, September 13, 1984 3:09:38 pm PDT -- MarkObjects are objects to associate names to points. --A mark object uses its origin as reference point; its client origin, the base --of its innerrect and its real origin coincide, but it has a non 0 size. --A mark application therefore must map the orientation of the mark to get --the pointed position. --design is ignored if cell#NIL --returns any found mark with name name --design is ignored if cell#NIL Ê®˜šœ™Jšœ Ïmœ1™