anchor.diff:      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;
  
positive.code:   xia_wm_state          := XInternAtom(FDisplay, 'WM_STATE', TBool(False));
  
    { initializa the XDND atoms }
    XdndInit;
  
    netlayer := TNETWindowLayer.Create(FDisplay);
  
negative.code: uses
    Classes,
    SysUtils,
    contnrs,
    X,
    Xlib,
    XUtil,
  