<> <> <> <> <<>> <<-- 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.