wired(
_\\
exact$
"same name" log)(
{
%
% the same value as tree node and not root
%
}
{
%
% possibly new comm 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
   !\
%
% add new child of anchor and select
%
   wired( newchild
  }
  {
%
% use the root node as anchor
%
   0
   !\
%
% add new child of anchor and select
%
   wired( newchild
  } ifelse
 }
 {
%
% use the root node as anchor
%
  0
  !\
 } ifelse
 select*
} ifelse
%
% store the edited text in the child node
%
wirex( "Body" \!
%
% indicate changed node
%
"Changed" _\ Tree.!Mark

%
% mark the tree as changed
%
mod@
%
% leave edit mode if enabled
%
empty !Edits
%
% back to tab 0
%
zerotab