%
% acceptance vectors for Node editing
%
sel@

_Ent.Page
<
|EditNode
%
% Value editing 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
">Enode " log()
 <
 |Initial
%
% initially in copy mode for drag
%
  0 !Hier.Drag
  "Desk\Tree\NodeEdit" *helpface
  *archsize

 |Tab
%
% react to the tab selection
%
  Ent._E4 trim
">>Tab " log()
  <
  |Options
%
% check for first time entering
%
   Ent._E5 trim
">>>Options " log()
   <
   |-1
%
% this is startup, the first time form loaded
% user selects the desired path from here
%
    *nodeactv

   > not
   {
    "None" *nodemode
    empty !Edit
    "SetVed(true,true);"
   } if

   Help.!

  |Change
%
% the name field should be enabled for changes
%
   -1 !Edit
   "SetVed(false,true);" 
   Help.!

  |Rename
%
% indicate no drag which implies rename (hier mode None)
%
   Ent._E7 unescape "None" *nodedact

  |Before
   -1 !Edit
   *dragopts
   "Before" *nodemode
  |After
   -1 !Edit
   *dragopts
   "After" *nodemode
  |Under
   -1 !Edit
   *dragopts
   "Child" *nodemode

  |Setting
   "Setting.Marks" \_ quoter &"," 
   "Setting.Sort" \_ quoter & &");"
   ^"Setters("
dup logs
   Help.!

  |Delete
%
% remove this node entirely
%
   false "Filer" do

   *treedeln
   "Index" get *editrsel
   *untabber

  > pop

 |Resel
%
% if supplied value change flag true, there is a change in the name
%
  Ent._E6 "true" eq$
  {
%
% don't react to a reselect that involves an incomplete name change action
%
  }
  {
%
% no editing now, check for new selection
%
   _Editarg *editrsel
   *nodeactv
   Help.!
  } ifelse

 |Cunder
%
% clone node as a descendant, relative to current node (hier mode Child)
%
  Ent._E4 "Child" *nodedact

 |Cafter
%
% clone node next in siblings relative to current node (hier mode After)
%
  Ent._E4 "After" *nodedact 

 |Cbefore
%
% clone node prior in siblings relative to current node (hier mode Before)
%
  Ent._E4 "Before" *nodedact

 |Nunder
%
% clone node as a descendant, relative to current node (hier mode Child)
%
  Ent._E4 "Child" *nodednew

 |Nafter
%
% clone node next in siblings relative to current node (hier mode After)
%
  Ent._E4 "After" *nodednew 

 |Nbefore
%
% clone node prior in siblings relative to current node (hier mode Before)
%
  Ent._E4 "Before" *nodednew

 |Save
  Ent._E4 unescape "Setting.Marks" \_
  second ne$
  {
   dup "Setting.Marks" \!
   dup _\ Tree.!Mark
   "Mark1" 0 Tree.!Mark
  } if
  pop
  Ent._E5 unescape "Setting.Sort" \_
  second ne$
  {
   dup "Setting.Sort" \!
   dup call
   "Mark1" 0 Tree.!Mark
  } if
  pop
  *untabber

 |Cancel
  *untabber

 |Drags
  *nodeclon

 |Accept
  *nodeacpt

%
% cancel link clicked, reject active node edit
%
 |Reject
%
% restore the prior tree
%
  *nodedoff
  *nodebacr
  Help.Show

 |Tree
%
% go to tree hierarchy ops
%
  *nodedoff

  "Default Target" *treemang

 |XmlTree
  *runrmake

 |Help
  "Desk\Tree\NodeEdit" !Help.Url
  *xhelstar

 > pop

>

*acceptun

%
% stack: found
%