TYPE
      GuardProcVal = RECORD (Meta.Value) p*: Dialog.GuardProc END;

   PROCEDURE CallGuard (c: Control; VAR disabled: BOOLEAN; VAR string: ARRAY OF CHAR);
      VAR ok: BOOLEAN; dpar: Dialog.Par; v: GuardProcVal; i: Meta.Item;
   BEGIN
      dpar.disabled := FALSE; dpar.undef := FALSE; dpar.readOnly := FALSE;
      dpar.checked := FALSE; dpar.label := "";
      Meta.LookupPath(c.prop.guard, i);
      IF (i.obj = Meta.procObj) OR (i.obj = Meta.varObj) & (i.typ = Meta.procTyp) THEN
         i.GetVal(v, ok);
         IF ok THEN v.p(dpar) END
      END;
      disabled := dpar.disabled; string := dpar.label$
   END CallGuard;