%
% acceptance vectors for hierarchy editing
%
Task.@

_Ent.Page
<
|Hier
%
% Hierarchy 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
%
 Ent._E3
">Hier " log()
 <
 |Initial
%
% initially in copy mode for drag
%
  0 !Hier.Drag
  "Tree\Hierarchy" *helpface
%%%  *archsize

 |Tab
%
% react to the tab selection
%
  false !Targeted
  Ent._E4 trim
">>Tab " log()
  <
  |Tree
   *bothsoff
   "SetVed(true,true);" 
%
% check for first time entering
%
   Ent._E5 trim
">>> " log()
   <
   |-1
%
% this is startup, the first time form loaded
% user selects the desired path from here
%
% hierarchy ops can commence
%
    0 !Edits
    *hiernams

   > not
   {
    Help.!
   } if

  |Under
   *dragopts
   "Child" *bothmode

  |Before
   *dragopts
   "Before" *bothmode

  |After
   *dragopts
   "After" *bothmode

  |Target
   *helpdrof
   true !Targeted
   "SetVed(false,true);" 
   Help.!

  |Import
   Help.@Help
   *hierzonz

  |Attach
   *helpdrof

  |Merge
   *helpdrof

  |Absorb
   *helpdrof

  |Join
   *helpdrof

  > pop

 |Drags
  *nodeclon

 |Done
%
% end target editing
%
  *hierchgs
  {
  }
  {
   *hierback
  } ifelse

 |Create
  Ent._E4 unescape
"pepload " log()
  !Hier.Rname
  true _Hier.Rname *treeacts
  Tree.Changed?
  {
   "Save" *persists
  }
  {
   "Load" *persists
  } ifelse
  rootnode
  *taskunsr
  empty "Markers" \!
  *loadmark
  Tree.Changed
%
% hide the default target tree
%
  "Default\Right.tlt" oflist Tree.Save pop
  hide

  *tarjreld(

 |Trees
  *hiertprf

 |Exchange
  *bothsoff
  *hierexch

 |aSave
%
% save the current left tree in possibly different pep name
%
  *bothsoff
  *hierlsav
%
% re-identify the left and right tree captions
%
  "Tabber(0);" 
  *hiernams

 |bSave
%
% save the current right tree in possibly different pep name
%
  *bothsoff
  *hierrsav
%
% re-identify the left and right tree captions
%
  "Tabber(0);" 
  *hiernams

 |aBranch
%
% copy the left selected branch into the right tree
%

 |bBranch
%
% copy the right selected branch into the left tree
%

 |aLoad
  *bothsoff
  *hierllod

 |bLoad
  *bothsoff
  *hierrlod

 |aReload
  *hierrldl

 |bReload
  *hierrldr

 |aEmpty
%
% clear the left tree below root
%
  _Hier.Left @
  *hiermpty

 |bEmpty
%
% clear the right tree below root
%
  _Hier.Right @
  *hiermpty

 |aContent

 |aBrand

 |bContent

 |bBrand

 |aDelete
  _Hier.Left @
  selected !\
  *treedeln

 |bDelete
  _Hier.Right @
  selected !\
  *treedeln

 |aCopyN
  _Hier.Left @
  *selenorm
  _@ !src@ _\ !src\
  _\ "CopyOne" do

 |bCopyN
  _Hier.Right @
  *selenorm
  _@ !src@ _\ !src\
  _\ "CopyOne" do

 |aValN
  _Hier.Left @
  *selenorm
  *hiervals

 |bValN
  _Hier.Right @
  *selenorm
  *hiervals

 |aPasteN
  _Hier.Left @
  *selenorm
  *hierpast

 |bPasteN
  _Hier.Right @
  *selenorm
  *hierpast

 |aClearN
  _Hier.Left @
  *selenorm
  *unvalues

 |bClearN
  _Hier.Right @
  *selenorm
  *unvalues

 |aOther
  _Hier.Left @
  *unseltre
  "Default\Right.tlt" oflist Tree.Load
  Tree.Changed

 |bOther
  _Hier.Right @
  *unseltre
  "Default\Left.tlt" oflist Tree.Load
  Tree.Changed

 |Help
%%%  _Hier.Left @
%%%  hide
%%%  _Hier.Right @
%%%  hide

%%%  *xhelstar

 > pop

>

*acceptun

%
% stack: found
%