anchor.diff:    
   type
   
  -  { Composite mediator for TListView }
  +  { Composite mediator for TfpgListView }
     TCompositeListViewMediator = class(TtiObject)
     private
       FIsObserving: Boolean;
  
positive.code:   end;
  
  
  { Helper functions }
  
  { Extract the field name part from the AField string which is in the format
  
negative.code:     constructor CreateCustom(AModel: TtiObjectList; AView: TfpgListView; ADisplayNames: string; IsObserving: Boolean = True);
      procedure   BeforeDestruction; override;
      procedure   Update(ASubject: TtiObject); override;
      { Called from the GUI to trigger events }
      procedure   HandleSelectionChanged; virtual;
    published
  