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

|Back
 pop
 *jsprefix
 {
 }
 {
  *firesavy
 } ifelse
 false

|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
  }
  {
   "#" _owner Str.Found
   <
   |0
%
% this is the visual expansion of fire code
%
    *fireviey
   |1
%
% fire code top-level category
%
    *fireviez
   > not
   {
%
% fire code sub-tree
%
    *fireviex
   } if
  } ifelse
 } if
 true

|Init
 pop
%
% load tree contents if not activated already
%
 *norminiu
%
% set pshop related variables for current task tree
%
 *jspklocs

 "#" _owner Str.Found
"Init# " log()
 <
 |0
%
% visual fire code level, first time init
%
  "Gleaned.html" "helparea" "Gleanex"
  *helplopn
 |1
%
% fire code top-level categories, first time init
%
  "Glean.html" "helparea" "Gleaner"
  *helplopn
 > not
 {
%
% init of sub-tree, pull fire code for comparison
%
  *firepull
  "Gstruct.html" "helparea" "Gfunction"
  *helplopn
 } if
%
% hide the descended-from task tree, float this help above prior
%
 *taskinto
 true

|Run
 pop
 "#" _owner Str.Found
"Run# " log()
 <
 |1
  *jsphrunu
 > not
 {
  *modendoc
 } if
 Task.@
 true

|View
 pop
 "#" _owner Str.Found
"View# " log()
 <
 |0
%
% visual fire code level
%
  *gleanopk
 |1
 > not
 {
%
% check the type to be sure it is fire code
%
  "Type" \_
  <
  |Base
  |Mep
  > not
  {
   sel@
   "Body" \_
   "Name" \_
   *gleanopr
   Task.@
   *expander
   rootnode
   _Glean.Name Tree.Rooting
  }
  {
   *modendoc
  } ifelse
 } if
 Task.@
 true