anchor.diff:  
       X.SelectionNotify:
           begin
  -          ProcessSelection(ev);
  +          { Handle XDND data }
  +          if ev.xselection._property = XdndSelection then
  +          begin
  +            HandleDNDSelection(ev);
  +          end
  +          else  { Handle X Selections - clipboard data }
  +            ProcessSelection(ev);
           end;
   
       X.SelectionRequest:
  
positive.code: 
    XSendEvent(FDisplay, FSrcWinHandle, False, NoEventMask, @Msg);
    ResetDNDVariables;
  end;
  
  function TfpgX11Application.DoGetFontFaceList: TStringList;
  
negative.code:     procedure   HandleDNDleave(ATopLevelWindow: TfpgX11Window; const ASource: TWindow);
      procedure   HandleDNDposition(ATopLevelWindow: TfpgX11Window; const ASource: TWindow; const x_root: integer; const y_root: integer; const AAction: TAtom; const ATimestamp: x.TTime);
      procedure   HandleDNDdrop(ATopLevelWindow: TfpgX11Window; const ASource: TWindow; const ATimestamp: x.TTime);
      procedure   HandleDNDSelection(const ev: TXEvent);
    protected
      FDisplay: PXDisplay;
      DisplayDepth: integer;
  