anchor.diff:              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);
  +          if Assigned(Drag) then
  +            swg := TfpgDrag(Drag).Source as TfpgWidget
  +          else
  +            swg := nil;
  +          wg.OnDragEnter(wg, swg, lMimeList, lMimeChoice, lDropAction, lAccept);
             lMimeList.Free;
             FActionType := GetAtomFromDropAction(lDropAction);
           end;
  
positive.code:   w: TfpgX11Window;
    wg: TfpgWidget;
    wg2: TfpgWidget;
    msgp: TfpgMessageParams;
    lDragEnterEvent: TfpgDragEnterEvent;
    lDropAction: TfpgDropAction;
  
negative.code: 
  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
  