<> <> <> <> <> DIRECTORY CD USING [ObPtr, CellPtr], CDProperties USING [GetPropFromObject], SpinifexCellPredicates ; SpinifexCellPredicatesImpl: CEDAR PROGRAM IMPORTS CDProperties EXPORTS SpinifexCellPredicates ~ BEGIN IsLogicalCell: PUBLIC PROCEDURE [ob: CD.ObPtr] RETURNS [BOOLEAN] ~ { Conditional: PROCEDURE [ob: CD.ObPtr] RETURNS [BOOLEAN] ~ { RETURN [CDProperties.GetPropFromObject[ob, $CDxPropagate]=$CDxPropagate] }; RETURN [~Conditional[ob] AND ob.p.inDirectory] }; 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.