anchor.diff:  begin
     netlayer.Free;
     XCloseDisplay(FDisplay);
  -  
  +  FDNDTypeList.Free;
     inherited Destroy;
   end;
   
  
positive.code:   fpg_widget,
    fpg_popupwindow,
    fpg_stringutils,  // used for GetTextWidth
    fpg_form,         // for modal event support
    cursorfont,
    xatom;            // used for XA_WM_NAME
  
  type
    TAtomArray = array [0..0] of TAtom;
    PAtomArray = ^TAtomArray;
  
  
negative.code:     XdndActionLink: TAtom;
      XdndActionAsk: TAtom;
      XdndActionPrivate: TAtom;
      { XDND variables }
      FActionType: TAtom;
      FSrcWinHandle: TfpgWinHandle;
      FDNDVersion: integer;
      FDNDDataType: TAtom;
      FSrcTimeStamp: clong;
      FLastDropTarget: TfpgWinHandle;
      function    ConvertShiftState(AState: Cardinal): TShiftState;
      function    KeySymToKeycode(KeySym: TKeySym): Word;
      function    StartComposing(const Event: TXEvent): TKeySym;
      procedure   XdndInit;
      procedure   ResetDNDVariables;
    protected
      FDisplay: PXDisplay;
      DisplayDepth: integer;
  