%
% Deep help operations
%

|Editing
%
% no edit currently in process
% begin editing due to right click of tree node
%
% right click - deploy node branding
%
 pop
 _Xhelp.Controls
 {
  false
 }
 {
  edits?
  {
  }
  {
   view?
   {
%
% viewing mode, cannot
%
   }
   {
%
% allow editing in non-viewing mode
%
    *editnodf
   } ifelse
  } ifelse
  true
 } ifelse

|Engage
%
% left double clicked
%
 pop
 _Xhelp.Controls
 {
  false
 }
 {
  edits?
  {

  }
  {
   view?
"view" log)(
   {
%
% cannot edit values in viewing mode
%
   }
   {
%
% allow value editing in normal xhelp utility
%
    *valsnode
   } ifelse
  } ifelse
  true
 } ifelse

|Select
 pop
 _Xhelp.Controls
 {
  false
 }
 {
  dup !\
  "Click" \_
  any?
  {
   exch Task.!Sel
   execstr
  }
  {
   *archndck
  } ifelse
  true
 } ifelse
 "PostSel" vector()

|Init
 pop
 _Xhelp.Controls
 {
  false
 }
 {
  false view!
  false !Xhelp.Descend
  *norminiu
%
% open normal xhelp help utility if top-level tree
%
  fork@)?
  {
%
% this is a subordinate Xhelp tree
% the tree is now loaded, under *treeevnt |Ready
% execute the Xhelp deferred step
%
   _Xhelp.Defer
   {
    *xheldefr(
   }
   {
   } ifelse
  }
  {
   *xhelnorm
   false retr!
  } ifelse
  true
 } ifelse

|Return
 pop
 _Xhelp.Controls
 {
 }
 {
  retr?
  {
%
% need to retreat all the way out of xhelp
%
   x/<<(
  }
  {
%
% coming back to this level of xhelp
%
   view?
   {
%
% we are actively running xhelp, seek to parent of current xhelp node
%
    false view!
    _\\ x/^(>
   }
   {
   } ifelse
  } ifelse
 } ifelse
 false