<> <> <> <> DIRECTORY CD USING [ObPtr, CellPtr], SpinifexCellPredicates ; SpinifexCellPredicatesImpl: CEDAR PROGRAM EXPORTS SpinifexCellPredicates ~ BEGIN IsLogicalCell: PUBLIC PROCEDURE [ob: CD.ObPtr] RETURNS [BOOLEAN] ~ { Conditional: PROCEDURE [ob: CD.ObPtr] RETURNS [BOOLEAN] ~ { RETURN [FALSE] }; RETURN [~Conditional[ob] AND ob.p.hasChildren] }; CanDisplayErrors: PUBLIC PROCEDURE [ob: CD.ObPtr] RETURNS [BOOLEAN] ~ { <<-- Two tests to make doubly sure that object is a cell (with application list).>> RETURN [ob.p.objectType = $Cell AND ISTYPE[ob.specificRef, CD.CellPtr]]; }; END.