anchor.diff:  var
     Msg: TXEvent;
   begin
  -  {$IFDEF DEBUG}
  +  {$IFDEF DNDDEBUG}
     writeln('XdndDrop event received!');
     {$ENDIF}
     XConvertSelection(FDisplay, XdndSelection, FDNDDataType, XdndSelection, ATopLevelWindow.FWinHandle, ATimestamp);
  
positive.code:                 ClosePopups;
                end;
              end;
            end;
  
            w := FindWindowByHandle(ev.xbutton.window); // restore w
  
negative.code:             {$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
  