%
% stack:  activate util-name
%
!@
{
 subform?
 dup !existed
 {
%
% this subform already exists
%
%
% must invoke Initing now
%
   *treeinit(
 }
 {
%
% subform did not exist
%
  _@ *tasktstd
"tstd" log)(
  true Mep.Window

  Tree.Off
  hide
%
% add to the peps collection
%
  _@ "Add" *persists
  {
%
% is new in current peps must set the event
% for Dpanel communication now
%
% event handler for all requests from StdTree
%
"Request| !Task.Request *treeevnt
"
Mep.Can

"Requesr| !Task.Request
"
Mep.Can

"Ready|
"
Mep.Can

"Sel|
"
Mep.Can

   _@ "Inject" *persists
  }
  {
%
% existed in current peps, the event meps are already engaged
%
  } ifelse

  Tree.On
  @^Trig
 } ifelse
%
% the StdTree form is not yet ready
% due to Dpanel event forthcoming
%
}
{
 *treeoffs
} ifelse