%% Close=Close
%% Tools=Tools
%% tagClose=MAIN.CMD.CLOSE.tag
%% tagTools=MAIN.CMD.TOOLS.tag
  {
  Execute GUI commands...
  }
  if iGetTag(%tagClose%)<>0 then begin
   bNul(iSetTag(%tagClose%,0));
   Menu%Close%Starter;
  end;
  if iGetTag(%tagTools%)<>0 then begin
   bNul(iSetTag(%tagTools%,0));
   Menu%Tools%Starter;
  end;
  {
  Edit handling...
  }
  if EditStateDone then begin
   {
   Menu %Close%.
   }
   Menu%Close%Handler;
   {
   Menu %Tools%.
   }
   Menu%Tools%Handler;
   {
   Warning, Information dialog completion.
   }
   if EditTestResultName('Warning') then EditReset;
   if EditTestResultName('Information') then EditReset;
  end;
  if EditStateDone then begin
   Problem('Unhandled edit detected!');
   EditReset;
  end else
  if EditStateError then begin
   Problem('Edit error detected!');
   EditReset;
  end;
