%
% glean firedance monad vectors
%
% perform the descent to the target tree
%
|Via
%
% stack: child-tree-name
%
 pop
 *pshpvias
 true

|Select
 pop
%
% perform Click setting
%
 *taskcise
 {
%
% display node's sub-trees if at top level,
% selected node's fire code if at sub-tree level
%
  "Type" \_ isnull)
  {
%
% this is a category, not a proc
%
   *fireviec
  }
  {
   *monaviex
  } ifelse
 } if
 true

|Init
 pop
%
% load tree contents if not activated already
%
 *norminiu

%
% set pshop related variables for current task tree
%
 *jspklocs
%
% init of sub-tree
%
 "Gstruct.html" "helparea" "Gfunction"
 *helplopn

%
% hide the descended-from task tree
%
 *taskinto

 true

|Run
 pop
/*
  *gleanopr
  Task.@
  *expander
  rootnode
  _Glean.Name Tree.Rooting
*/
 true