SpinifexCellPredicatesImpl.mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Written by Shand, September 12, 1983 11:40 pm
Last Edited by: Shand, August 8, 1984 6:42:35 pm PDT
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.