anchor.diff:    w: TfpgX11Window;
     wg: TfpgWidget;
     wg2: TfpgWidget;
  +  swg: TfpgWidget;
     msgp: TfpgMessageParams;
     lDragEnterEvent: TfpgDragEnterEvent;
     lDropAction: TfpgDropAction;
  
positive.code: 
  var
    xapplication: TfpgApplication;
  
  const
    FPG_XDND_VERSION: culong = 4; // our supported XDND version
  
negative.code:     xev.xclient.data.l[4] := 0;
  
      XSendEvent(xapplication.Display, FLastTarget, False, NoEventMask, @xev);
  
      uDragSource := FSource as TfpgWidget;
    end
    else
    begin
      SendDNDLeave(FLastTarget);
      uDragSource := nil;
    end;
    FSource.MouseCursor := mcDefault;
  end;
  
  