DIRECTORY CD USING [Design, Object, Layer, Instance, Rect, Number, highLightError], Rope USING [ROPE]; CDErrors: CEDAR DEFINITIONS = BEGIN highLightError: CD.Layer = CD.highLightError; InstancePredicate: TYPE = PROC [inst: CD.Instance] RETURNS [yes: BOOL_TRUE]; IncludeMessage: PROC [ design: CD.Design, ob: CD.Object, rect: CD.Rect_all, message: Rope.ROPE_NIL, owner: ATOM_NIL --shoud have been registered as property to avoid conflicts ] RETURNS [done: BOOL, into: CD.Object, inst: CD.Instance]; all: PRIVATE CD.Rect = [FIRST[CD.Number], FIRST[CD.Number], LAST[CD.Number], LAST[CD.Number]]; RemoveMessages: PROC [ design: CD.Design, ob: CD.Object, owner: ATOM_NIL, alsoOthers: BOOL_FALSE, removeIt: InstancePredicate_NIL --NIL means TRUE ]; RemoveAllMessages: PROC [design: CD.Design, owner: ATOM, removeIt: InstancePredicate_NIL]; END. ÎCDErrors.mesa (part of ChipNDale) Copyright c 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, March 1, 1985 9:32:15 am PST last edited by Christian Jacobi, May 28, 1985 4:16:50 pm PDT -- Error messages are rectangles of layer highLightError. -- The signal name property of the application contains a message. -- The owner atom allows different instances to independent remove old messages. -- Include an error message relative to an arbitrary object ob. -- If ob is not a cell, the message is actually placed into any other conveniant location. -- into: describes where error message may be found; NIL: if not done or top layer. -- inst: can be used for further properties... -- This procedure may make internal use of CDMarks.GetNewMark. -- rect will be clipped to ob's size -- Remove all error messages (with this owner; NIL means all owners) denoting ob. -- alsoOthers: messages pointing to other objects but residing in ob will also be removed. -- removeIt: client may specify a proc to determine if a message should be removed. -- If ob (or the cell containing the message rectangle) has been renamed, this -- procedure might not find and remove all error messages. -- This procedure may cause cells to be repositioned. -- Remove all error messages with this owner from of the whole design. -- removeIt: client may specify a proc to determine if a message should be removed. -- This procedure may cause cells to be repositioned. Êi˜šœ(™(Jšœ Ïmœ1™