anchor.diff:      FCapabilities: TEditorCapabilities;
       procedure AddGroup(vName, vCategory: string);
       function CreateDebugger: TEditorDebugger; virtual;
  -    function GetGroups: TFileGroups; virtual;
       procedure Init; virtual; abstract;
       procedure DoRun(Info: TmneRunInfo); virtual;
     public
  
positive.code:   TDefaultTendency = class(TEditorTendency)
    protected
      procedure Init; override;
      function GetGroups: TFileGroups; override;
    public
      function GetDefaultGroup: TFileGroup; override;
    end;
  
negative.code:   FDescription := 'Default project type';
  end;
  
  function TDefaultTendency.GetDefaultGroup: TFileGroup;
  begin
    Result := Groups.Find('txt');
  