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

|Back
 pop
 help@ false @^Window hide
 fork@)?
 {
 }
 {
  *runrsavy
 } ifelse
 false

|Select
 pop
%
% perform Click setting
%
 *taskcise
 {
%
% display node's sub-trees if at top level,
% selected node's jsx if at sub-tree level
%
  fork@)?
  {
%%%   *jsphviez
  }
  {
%
% display node's sub-trees if at top level,
% selected node's run tree if at sub-tree level
%
   *valsrept
   _report *entertre
   Help.!
  } ifelse
 } if
 "PostSel" vector()
 true

|Init
 pop

%
% load tree contents init is vectored when StdFree form notifies
% that Bpanel is loaded
%
 *norminiu
%
% set pshop related variables for current task tree
%

 fork@)?
 {
%
% Run tree groups, first time init
%
  "Runner.html" "helparea" "Runex"
  *helplopn
 }
 {
%
% Run trees, first time init
% update tree contents versus saved file
%
  *runrpull
%
% now open the help page for working with run trees
%
  "Rstruct.html" "helparea" "Rstrux"
  *helplopn
%
% hide the descended-from task tree
%
  *ownrhide
 } ifelse

%
% make sure our help is above prior
%
%%% *helpabov
 @@
 true

|Run
 pop
 "#" _owner Str.Found
 <
 |0

 |1
  *jsphrunu
 > not
 {
%%%  *runrmake
%%%  *jsphruns
 } if

 true

|View
 pop
 @@
 true