anchor.diff:  
   procedure TfpgBaseEdit.PasteFromClipboard;
   begin
  -  DoPaste;
  +  DoPaste(fpgClipboard.Text);
   end;
   
   { TfpgBaseTextEdit }
  
positive.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      function    SelectionText: string;
      procedure   SelectAll;
      procedure   Clear;
      procedure   ClearSelection;
      procedure   CopyToClipboard;
      procedure   CutToClipboard;
      function    GetClientRect: TfpgRect; override;
      procedure   PasteFromClipboard;
      property    Font: TfpgFont read FFont;
      property    SideMargin: integer read FSideMargin write SetSideMargin default 3;
  
negative.code:     // function    PointToCharPos(x, y: integer): integer;
      procedure   DeleteSelection;
      procedure   DoCopy;
      procedure   DoPaste(const AText: TfpgString);
      procedure   SetAutoSelect(const AValue: Boolean);
      procedure   SetBorderStyle(const AValue: TfpgEditBorderStyle);
      procedure   SetHideSelection(const AValue: Boolean);
  