anchor.diff:    FProjectUnits.Free;
     FLibraryPath.Free;
     inherited;
  +end;
  +
  +function TEnvironmentController.GetLibraryPathStatus: string;
  +begin
  +  Result := 'Ready';
  +  if FLibraryPathWorker <> nil then
  +    Result := Format('%d/%d Processing...', [FLibraryPathWorker.ParsedItems, FLibraryPathWorker.ItemsToParse]);
   end;
   
   function TEnvironmentController.GetLibraryPathUnits(const SearchString: string): TStringList;
  
positive.code: interface
  
  uses
    Classes, Generics.Collections, FindUnit.PasParser, OtlParallelFU, ToolsAPI, XMLIntf, FindUnit.FileCache, SysUtils, Log4Pascal;
  
  type
    TEnvironmentController = class(TInterfacedObject, IOTAProjectFileStorageNotifier)
  
negative.code:     FProjectUnits: TUnitsController;
      FLibraryPath: TUnitsController;
      FLastItem: string;
  
      FProjectPathWorker: TParserWorker;
      FLibraryPathWorker: TParserWorker;
  
      procedure CreateLibraryPathUnits;
      procedure OnFinishedLibraryPathScan(FindUnits: TObjectList<TPasFile>);
  