INTERFACE CVSLockInfo;

CONST Brand = "Elego ComPact CVS LockInfo 0.0";

TYPE
  T = OBJECT
    fn   : TEXT;
    user : TEXT;
    date : TEXT;
    host : TEXT;
    dir  : TEXT;
  END;

END CVSLockInfo.