%
% Deep help operations
%

|Editing
%
% no edit currently in process
% begin editing due to right click of tree node
%
% right click - deploy node branding
%
 pop
 _Edits any)?
 {
 }
 {
  _Arching
  {
%
% viewing mode, cannot right-button here, move back to prior selection
%
   ._PriorSel Task.!Select
  }
  {
%
% allow editing in non-viewing mode
%
   *editnodf
  } ifelse
 } ifelse
 true

|Engage
%
% left double clicked
%
 pop
 _Edits any)?
 {
 }
 {
  _Arching
"arching " log()
  {
%
% cannot edit values in viewing mode
%
  }
  {
%
% allow value editing in normal xhelp utility
%
   true !dclicker
   *valsnode
  } ifelse
 } ifelse
 true

|Select
 pop
 dup !\
 _Edits any)?
 {
  pop selected !\
  Tree.Select
 }
 {
  "Click" \_
  any?
  {
   exch Task.!Sel
   false !dclicker
"defck " log()
   800 aux3
  }
  {
   *archndck
  } ifelse
 
 } ifelse

 true

|Init
 pop
 false !Arching
 *norminiu
%
% open normal xhelp help utility if top-level tree
%
 "#" _@ Str.Found
 {
 }
 {
  *xhelnorm
  false !Xhelp.Retreat
 } ifelse
 true

|Return
 pop
 _Xhelp.Retreat
 {
%
% need to retreat all the way out of xhelp
%
  *xhelback(
 }
 {
%
% coming back to this level of xhelp
%
  _Arching
  {
%
% we are actively running xhelp, seek to parent of current xhelp node
%
   false !Arching
   "^" !Help.Url
   *xhelseek(
  }
  {
  } ifelse
 } ifelse
 false