File: CheckMarks.mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Created by: Bob Mayo, July 27, 1984 10:42:55 pm PDT
Last Edited by: Mayo, July 27, 1984 10:53:14 pm PDT
-- Check Marks: Provide check marks for ChipNDale. These marks are used by the Tiler to verify alignments of things. Each such mark must match (be at the same point as) at least one other mark, otherwise it's an error.
DIRECTORY
CD USING [Design, ApplicationPtr, Position];
CheckMarks: CEDAR DEFINITIONS =
BEGIN
atom: ATOM; -- Contains the atom that check marks are tagged with.
-- Place mark.
Place: PROC [into: CD.Design, markPos: CD.Position];
-- Given a ChipNDale application that points to an check mark, return it's position.
-- Returns some unspecified value if the application contains a different type of object.
Find: PROC [aptr: CD.ApplicationPtr] RETURNS [CD.Position];
END.