ViewerConstraintsPrivate.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Eric Nickell, October 13, 1986 5:31:07 pm PDT
~
BEGIN
ConstraintClass: TYPE ~ REF ConstraintClassRep;
ConstraintClassRep:
TYPE ~
RECORD [
nFrom, nTo: CARDINAL,
enforce: ViewerConstraints.EnforceProc,
classData: REF
];
Constraint: TYPE ~ REF ConstraintRep;
ConstraintRep:
TYPE ~
RECORD [
class: ConstraintClass,
from, to: ViewerConstraints.Values,
eFrom, eTo: EdgeSequence,
check: BOOL ← TRUE,
instanceData: REF ← NIL
];
EdgeSequence: TYPE ~ REF EdgeSequenceRep;
EdgeSequenceRep: TYPE ~ RECORD [SEQUENCE n: NAT OF ViewerConstraints.Edge];