%
% repeal the vector (task) stack for the depth of xhelp
%
 @@
%
% check for top level tree in universal tree system
% top level will not contain a # sign
%
 fork@)?
"unxhelps" log)(
 {
%
% xhelp is focused below the top tree, hide the current tree
%
  hide
%
% must also pop and hide every form until the topmost xhelp task tree
% preserve current stack
%
  [Get]
%
% cycle up through task chain to find top tree name
%
  [=Owners]
  {
%
% check for top tree, without # sign
%
   [Pop] fork? not ?
%
% this tree must be hidden, pop the task from the chain
%
   !@
   hide
   [Peel]
  } loop
%
% put back the topmost xhelp tree that was detected
%
  dup !@
  [Push]
%
% restore the original stack
%
  [Set]
%
% make the top-level tree the current task
%
  _@ !owner
%
% make sure the topmost xhelp tree is visible
%
  show
 }
 {
%
% already at the topmost xhelp tree
%
 } ifelse
%
% always reference the root node in the topmost tree
%
 root\