anchor.diff:    end;
   end;
   
  -procedure TtiListBoxMediatorView.SetupGUIandObject;
  -begin
  +procedure TtiListBoxListMediatorView.SetupGUIandObject;
  +begin
  +  inherited SetupGUIandObject;
     View.Items.Clear;
  -  inherited SetupGUIandObject;
  -end;
  -
  -constructor TtiListBoxMediatorView.CreateCustom(AModel: TtiObjectList;
  +end;
  +
  +constructor TtiListBoxListMediatorView.CreateCustom(AModel: TtiObjectList;
     AListBox: TfpgListBox; ADisplayNames: string; AIsObserving: Boolean);
   begin
     inherited Create;
  
positive.code: 
  
    { Composite mediator for TfpgListBox }
    TtiListBoxMediatorView = class(TtiCustomListMediatorView)
    private
      function    DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator; override;
      procedure   DoDeleteItemMediator(AIndex: Integer; AMediator: TtiListItemMediator); override;
  
negative.code: //  inherited SetSelectedObject(AValue);
  end;
  
  procedure TtiListBoxListMediatorView.CreateColumns;
  begin
    // do nothing - we don't support columns
  end;
  
  procedure TtiListBoxListMediatorView.ClearList;
  begin
    MediatorList.Clear;
    if View <> nil then
      View.Items.Clear;
  end;
  
  procedure TtiListBoxListMediatorView.RebuildList;
  begin
    { This rebuilds the whole list. Not very efficient. }
    View.BeginUpdate;
  