anchor.diff:    else if StrContains('destructor', ProcName, False) then // Do not localize.
       Result := ImageIndexTrash
     else if StrBeginsWith('class proc', ProcName, False)    // Do not localize.
  -      or StrContains('class func', ProcName, False) 
  +      or StrContains('class func', ProcName, False)
         or (ProcClass <> '') then
       Result := ImageIndexGear
     else
  
positive.code:       finally
          SFile.Free;
        end;
        SendDebug('Procedure List: Starting Parse');
        case Language of
          ltPas: Parser.Origin := MemStream.Memory;
  //        ltCpp: CParser.SetOrigin(MemStream.Memory, MemStream.Size);
  
negative.code:     for I := 0 to Decls.Count - 1 do
      begin
        p := TObject(Decls[I]) as TPasElement;
  //      Writeln('Interface item ', I, ': ' + p.Name + ' [line ' + IntToStr(p.SourceLinenumber) + ']');
      end;
      FreeAndNil(M);
    finally
  