DIRECTORY Rope USING [ROPE], CD USING [Instance, Design, Position, Object]; CDMarkObjects: CEDAR DEFINITIONS = BEGIN markOb: READONLY CD.Object; markNameProperty: READONLY ATOM; markAtom: READONLY ATOM; -- Contains the class atom for alignment marks objects. MarkEnumerator: TYPE = PROC [markInstance: CD.Instance] RETURNS [quit: BOOL_FALSE]; EnumerateMarks: PROC [cellOb: CD.Object_NIL, design: CD.Design_NIL, proc: MarkEnumerator] RETURNS [quit: BOOL]; FindMark: PROC [cellOb: CD.Object_NIL, design: CD.Design_NIL, name: Rope.ROPE] RETURNS [CD.Instance]; SetMarkName: PROC [markInstance: CD.Instance, name: Rope.ROPE]; GetMarkName: PROC [markInstance: CD.Instance] RETURNS [name: Rope.ROPE]; GetMarkPosition: PROC [markInstance: CD.Instance] RETURNS [CD.Position]; 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™