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:             raise Exception.Create('fpGUI/X11: no mime types available for DND operation');
  
            { TODO: We need to populate the Source parameter. }
            wg.OnDragEnter(self, nil, lMimeList, lMimeChoice, lDropAction, lAccept);
            lMimeList.Free;
            FActionType := GetAtomFromDropAction(lDropAction);
          end;
  
negative.code:   w: TfpgX11Window;
    wg: TfpgWidget;
    wg2: TfpgWidget;
    swg: TfpgWidget;
    msgp: TfpgMessageParams;
    lDragEnterEvent: TfpgDragEnterEvent;
    lDropAction: TfpgDropAction;
  