unit ECO_atv;
interface
uses
  dos, crt, unit_pgm,
  unit_scn, unit_str,
  unit_fil,
  ECO_cfi,  ECO_vid,
  ECO_str,  ECO_ext,
  ECO_fil,
  execswap

  ;


type
  cfgtype = record
    applic_f, applic_b,
    applic_h,
    x1, y1, x2, y2      : byte;
  end;

  optiontype = (o_unpak, o_delete, o_nothing);

  arcpanelobj = object
    ful, quit,
    showmem,
    showreads,
    complete_error : boolean;
    treewidth,
    status,
    error          :    word;
    cfg            : cfgtype;
    mfree          : longint;
    nulstr,
    olddir         : pathstr;
    wst            :  string;
    {=Internal===============================================================}
    function pak_tv(arc: pathstr; var opt: optiontype): boolean;
    {=External===============================================================}
    function atv(arcname: pathstr): boolean;
  end; { arcpanelobj }