anchor.diff:      procedure   FormClose(Sender: TObject; var CloseAction: TCloseAction);
       procedure   btnQuitClicked(Sender: TObject);
       procedure   btnOpenFileClicked(Sender: TObject);
  +    procedure   miFileNewUnit(Sender: TObject);
       procedure   miFileSave(Sender: TObject);
       procedure   miFileSaveAs(Sender: TObject);
       procedure   miEditCutClicked(Sender: TObject);
  
positive.code:   end;
  end;
  
  procedure TMainForm.miFileSave(Sender: TObject);
  var
    s: TfpgString;
  
negative.code:   begin
      Name := 'mnuFile';
      SetPosition(476, 61, 172, 20);
      miFile := AddMenuItem('New...', rsKeyCtrl+'N', @miFileNewUnit);
      AddMenuItem('-', '', nil);
      AddMenuItem('Open...', rsKeyCtrl+'O', @btnOpenFileClicked);
      AddMenuItem('Open Recent', '', nil).Enabled := False;
  