%
% stack:  activate util-name
%
!@
{
 subform?
 dup !existed
 {
%
% this subform already exists
%
 }
 {
%
% subform did not exist
%
  _@ *basktstd

  true Mep.Window

  Tree.Off
%
% always create the named root
%
  _@ Tree.Rooting

  hide
%
% add to the peps collection
%
  _@ "Add" *persists
  {
%
% is new in current peps
%
   _@ "Fnject" *persists
  }
  {
%
% existed in current peps
%
  } ifelse

  Tree.On

 } ifelse
}
{
%
% deactivate mep
%
 subform?
 {
%
% this subform exists, remove it
%
  App.SubOff
 } if

 _@ "Stop" *persists

} ifelse