%
% machine and comm program vectors
%
% perform the descent to the target tree
%
|Via
%
% stack: child-tree-name
%
 pop
%%% *pshpvias
 true

|Back
 pop
 fork@)?
"iot" log)(
 {
%
% going back to the previous type of task level
%
 }
 {
%
% going back to the master tree
%
 } ifelse
 false

|Run
 pop
 rooted\
 
%
% running based on master tree
%
 *iotrstar
 true

|Select
 pop
%
% perform Click setting
%
 *taskcise
 {
%
% selection allowed
% selecting a device node in master tree
%
  \_Body *entertre
  Help.!
 } if
 Task.@
 true

|Init
 pop

%
% load tree contents init is vectored when StdTree form notifies
% that Dpanel is loaded
%
 *norminiu
%
% set pshop related variables for current task tree
%
% Run tree groups, first time init
%
 "MachStat.html" "helparea" "Machs"
 *helplopn
%
% make sure our help is above prior
%
 *helpabov
 Task.@

 true

|View
 pop
 \_Body execstr
 rootnode \_Body execstr
 true