anchor.diff:              {$IFDEF DNDDEBUG}
               writeln('XdndStatus event received!');
               {$ENDIF}
  +            if Assigned(Drag) then
  +            begin
  +              Drag.HandleDNDStatus(
  +                  ev.xclient.data.l[0],
  +                  ev.xclient.data.l[1] and 1,
  +                  fpgRect(
  +                    (ev.xclient.data.l[2] shr 16) and $FFFF,
  +                    ev.xclient.data.l[2] and $FFFF,
  +                    (ev.xclient.data.l[3] shr 16) and $FFFF,
  +                    ev.xclient.data.l[3] and $FFFF),
  +                  ev.xclient.data.l[4]);
  +            end;
             end
             { XDND protocol - XdndLeave }
             else if Assigned(w) and (ev.xclient.message_type = XdndLeave) then
  
positive.code: var
    Msg: TXEvent;
  begin
    {$IFDEF DEBUG}
    writeln('XdndDrop event received!');
    {$ENDIF}
    XConvertSelection(FDisplay, XdndSelection, FDNDDataType, XdndSelection, ATopLevelWindow.FWinHandle, ATimestamp);
  
negative.code:           until not XCheckTypedWindowEvent(display, ev.xmotion.window, X.MotionNotify, @ev);
            w := FindWindowByHandle(ev.xmotion.window);
            if not Assigned(w) then
              ReportLostWindow(ev)
            else
            begin
              if Assigned(Drag) then
              begin
                Drag.Dragging(ev);
              end;
              if xapplication.TopModalForm <> nil then
              begin
                ew := TfpgX11Window(WidgetParentForm(TfpgWidget(w)));
                if (ew <> nil) and (xapplication.TopModalForm <> ew) and (waUnblockableMessages in ew.WindowAttributes = False) then
                  blockmsg := true;
              end;
              if not blockmsg then
              begin
                msgp.mouse.x          := ev.xmotion.x;
                msgp.mouse.y          := ev.xmotion.y;
                msgp.mouse.Buttons    := (ev.xmotion.state and $FF00) shr 8;
                msgp.mouse.shiftstate := ConvertShiftState(ev.xmotion.state);
                fpgPostMessage(nil, w, FPGM_MOUSEMOVE, msgp);
              end;
            end;
          end;
  
  