anchor.diff:  
   var
     xapplication: TfpgApplication;
  +  uDragSource: TfpgWidget;  { points to the Source widget of the DND when drop is inside the same app }
   
   const
     FPG_XDND_VERSION: culong = 4; // our supported XDND version
  
positive.code:     xev.xclient.data.l[4] := 0;
  
      XSendEvent(xapplication.Display, FLastTarget, False, NoEventMask, @xev);
    end
    else
      SendDNDLeave(FLastTarget);
    FSource.MouseCursor := mcDefault;
  end;
  
  
negative.code:   w: TfpgX11Window;
    wg: TfpgWidget;
    wg2: TfpgWidget;
    swg: TfpgWidget;
    msgp: TfpgMessageParams;
    lDragEnterEvent: TfpgDragEnterEvent;
    lDropAction: TfpgDropAction;
  