Ent._E4 unescape
_\\
exact$
root? not and
{
%
% the same value as tree node and not root
%
}
{
%
% possibly new jsx node, add to tree
% if same name and are adding, adds duplicate tree node
%
 selected positive
 {
%
% not root node
%
  _Edits whole
  {
%
% use the parent of current node as anchor
%
   Tree._Parent
  }
  {
%
% use the root node as anchor
%
   0
  } ifelse
 }
 {
%
% use the root node as anchor
%
  0
 } ifelse
 !\
%
% add new child of anchor and select
%
 Ent._E4 unescape newchild
 select*
} ifelse
%
% store the edited text in the child node
%
Ent._E5 unescape
"Body" \!
%
% indicate changed node
%
"Changed" _\ Tree.!Mark

%
% mark the tree as changed
%
nod@
%
% leave edit mode if enabled
%
empty !Edits
%
% back to tab 0
%
*untabber