anchor.diff:    XdndActionPrivate := XInternAtom(FDisplay, 'XdndActionPrivate', False);
   end;
   
  +procedure TfpgX11Application.ResetDNDVariables;
  +var
  +  msgp: TfpgMessageParams;
  +begin
  +  if FLastDropTarget <> 0 then
  +  begin
  +    fillchar(msgp, sizeof(msgp), 0);
  +    fpgPostMessage(nil, FindWindowByHandle(FLastDropTarget), FPGM_DROPINACTIVE, msgp);
  +  end;
  +  FDNDTypeList.Clear;
  +  FActionType     := 0;
  +  FSrcWinHandle   := -1
  +end;
  +
   function TfpgX11Application.DoGetFontFaceList: TStringList;
   var
     pfs: PFcFontSet;
  
positive.code: uses
    Classes,
    SysUtils,
    X,
    Xlib,
    XUtil,
  
negative.code:   xia_wm_state          := XInternAtom(FDisplay, 'WM_STATE', TBool(False));
  
    { initializa the XDND atoms }
    FDNDTypeList := TObjectList.Create;
    XdndInit;
  
    netlayer := TNETWindowLayer.Create(FDisplay);
  