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

|Back
 pop
 fork@)?
 {
%
% going back to the previous type of task level
%
 }
 {
%
% going back from the master tree
% remove the iot data window and the main form downstream
%
  *devclose(
 } ifelse
 false

|Run
 pop
 rooted\
 fork@)?
 {
%
% running based on sub-tree
%
  *devcsene
 }
 {
%
% running based on master tree
%
  *devcstas
 } ifelse
 true

|Select
 pop
%
% perform Click setting
%
 *taskcise
 {
%
% selection allowed
%
  fork@)?
  {
%
% selected program code
%
   \_Body *entertre
   Help.!
  }
  {
%
% selecting a machine node in master tree
%
   \_Body *entertre
   Help.!
  } ifelse
 } 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
%
 "Devices.html" "helparea" "Devcx"
 *helplopn
%
% make sure our help is above prior
%
 *helpabov
 Task.@

 true

|View
 pop
 rooted\
 fork@)?
 {
%
% viewing based on sub-tree
%
  *devcsend
 }
 {
%
% viewing based on master tree
%
 } ifelse
 true