%
% application monitoring
%
% stack: monitor-app
%
{
%
% track the activation of main form and the Wait button
%
 "Main|^Enter|true *entrance" Mep.Decode
 "Main|^Wait|false *entrance" Mep.Decode
 true gated

}
{
%
% hide the main form and stop tracking activation
%
 "Main" noevent pop
 false gated
 false current
 Mep.__
 empty !App.Gating
 dup !App.Meps
 <_>
 countup
 {
  pop
  dup with
  _App.Meps <> pop
%
% stack: [ . . mep-name ] mep-form form-type visible
%
  {
   this quo&spc _App.Gating ^ !App.Gating
  }
  {
  } ifelse
  pop2
  hide
 } for
 [=Owners]
 
 _App.Gating ^"empty " &" *showmeps" [Push]
 _App.Meps [Push]

} ifelse