anchor.diff:    private
       entries: TStringList;
     public
  -    CONSTRUCTOR Create;
  -    DESTRUCTOR Destroy; override;
  -    FUNCTION Count: longint;
  -    FUNCTION GetLabels: TStringList;
  -    FUNCTION GetTopic(aPos: longint): TTopic;
  -    PROCEDURE Add(anIndexEntry: TIndexEntry);
  +    constructor Create;
  +    destructor  Destroy; override;
  +    function    Count: longint;
  +    function    GetLabels: TStringList;
  +    function    GetTopic(aPos: longint): TTopic;
  +    procedure   Add(anIndexEntry: TIndexEntry);
     end;
   
   
  
positive.code: 
    PROCEDURE TIndex.add(anIndexEntry: TIndexEntry);
    begin
      // LogEvent(LogDebug, 'TIndex.add(' + aName + ', ' + anIndexEntry.ClassName);
      entries.AddObject(anIndexEntry.getLabel, anIndexEntry);
    end;
  
  
negative.code:     topic: TTopic;
      flags: uint8;
    public
      constructor Create(aName: String; aTopic: TTopic; aFlags: uint8);
      destructor  Destroy; override;
      property    getTopic: TTopic read topic;
      function    getLabel: String;
      function    isGlobal: boolean;
      function    getLevel: integer;
    end;
  
  
  