anchor.diff:      function IsThemeNameExist(const AName: string; AThemeUI: boolean): boolean;
       procedure PopupToolbarCaseOnPopup(Sender: TObject);
       procedure PopupToolbarCommentOnPopup(Sender: TObject);
  +    procedure MenuRecent_RemoveFilename(const fn: string);
       procedure MenuRecentsClear(Sender: TObject);
       procedure MenuRecentsPopup(Sender: TObject);
       procedure MenuRecentItemClick(Sender: TObject);
  
positive.code: begin
    Frame:= GetEditorFrame(Ed);
    if Frame=nil then exit;
    if not Frame.EditorsLinked then
    begin
      MsgStatus(msgCannotHandleSplittedTab);
  
negative.code:        msgConfirmCloseAndDeleteFile+#10+fn,
         MB_OKCANCEL or MB_ICONWARNING)=ID_OK then
      if Groups.CloseTabs(tabCloseCurrent, false) then
      begin
        DeleteFileUTF8(fn);
        MenuRecent_RemoveFilename(fn);
      end;
  end;
  
  procedure TfmMain.DoFileNew;
  