anchor.diff:    //  // Tell the old imagelist not to inform us any more
     //  FImages.Notification( Self, opRemove );
   
  -  FImages := Images;
  +  FImages := AImages;
     //if FImages <> nil then
     //  // request notification when other is freed
     //  FImages.FreeNotification( Self );
  
positive.code: //  Refresh;
  //end;
  
  Procedure TRichTextView.SetImages( Images: TfpgImageList );
  begin
    if Images = FImages then
      exit; // no change
  
    { TODO -oGraeme : TfpgImageList is not a TComponent descendant. Maybe it should be? }
  
negative.code:     Procedure SetSelectionStart( SelectionStart: longint );
      Procedure SetSelectionEnd( SelectionEnd: longint );
  
      Procedure SetImages( AImages: TfpgImageList );
      Procedure Notification( AComponent: TComponent;
                              Operation: TOperation ); override;
    Public
  