%
% acceptance vectors for Tree manager operations
%
page@
<

|Arch
%
% Tree manager vector operations
% note that the case for the first tab is derived from the tab # in E4
% to derive startup, use a separate lookup for prior tab 'name' in E5
%
 wireop(
">Arch" log)(
 <
 |Initial
  "TreeManager" *helpface
%
% fill the tree with backup files related to the parent tree pep
%
  *archfill
  *archsize

 |Tab
%
% react to the tab selection
%
  wired(
">>Tab" log)(
  <
  |Options
%
% check for first time entering
%
   wirex(
">>>Options" log)(
   <
   |-1
   > not
   {
   } if
%
% set the display name to be the parent pep tree address
%
   *entrepar

  |See
   *archtrat

  |Select
%
% make this history tree the current tree 
%
   *archistr

  |Rename
%
% save this history step as named tree
%
  |Select
%
% make this history tree the current tree 
%

  > pop

 |Help
  "TreeManager" x!/*

 |Accept

%
% cancel link clicked, normal path
%
 |Reject
  *archback

 > pop

>

*acceptun

%
% stack: found
%