anchor.diff:      { one use is for message blockings for modal windows, or XDND etc. }
       X.ClientMessage:
           begin
  -          w := FindWindowByBackupHandle(ev.xclient.window);
  +          w := FindWindowByHandle(ev.xclient.window);
             if not Assigned(w) then
               ReportLostWindow(ev);
   
  
positive.code:   {$IFDEF DNDDEBUG}
    writeln('TfpgX11Application.HandleDNDselection');
    {$ENDIF}
    { do not get data yet, just see how much there is }
    XGetWindowProperty(FDisplay, ev.xselection.requestor,
        ev.xselection._property, 0, 0,
  
negative.code:   if FLastDropTarget <> 0 then { 0 would be first time in, so there is no last window }
    begin
      wg := FindWindowByHandle(FLastDropTarget) as TfpgWidget;
      if wg.AcceptDrops then
      begin
        if Assigned(wg.OnDragDrop) then
          wg.OnDragDrop(nil, nil, FDropPos.X, FDropPos.Y, s);
      end;
    end;
    {$IFDEF DNDDEBUG}
    writeln(' s = ', s);
  