anchor.diff:  //  inherited SetSelectedObject(AValue);
   end;
   
  -procedure TtiListBoxMediatorView.CreateColumns;
  +procedure TtiListBoxListMediatorView.CreateColumns;
   begin
     // do nothing - we don't support columns
   end;
   
  -procedure TtiListBoxMediatorView.ClearList;
  +procedure TtiListBoxListMediatorView.ClearList;
   begin
     MediatorList.Clear;
     if View <> nil then
       View.Items.Clear;
   end;
   
  -procedure TtiListBoxMediatorView.RebuildList;
  +procedure TtiListBoxListMediatorView.RebuildList;
   begin
     { This rebuilds the whole list. Not very efficient. }
     View.BeginUpdate;
  
positive.code: end;
  
  
  { TtiListBoxMediatorView }
  
  function TtiListBoxMediatorView.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator;
  var
    i: integer;
    lFieldName: string;
  
negative.code: begin
    gMediatorManager.RegisterMediator(TtiListViewMediatorView, TtiObjectList);
    gMediatorManager.RegisterMediator(TtiStringGridMediatorView, TtiObjectList);
    gMediatorManager.RegisterMediator(TtiListBoxListMediatorView, TtiObjectList);
  end;
  
  { TtiListViewMediatorView }
  