anchor.diff:    {$IFDEF DNDDEBUG}
     writeln('XdndDrop event received!');
     {$ENDIF}
  +  { TODO: Must XConvertSelection always be called? }
     XConvertSelection(FDisplay, XdndSelection, FDNDDataType, XdndSelection, ATopLevelWindow.FWinHandle, ATimestamp);
   
     { send message to confirm drop will be accepted in specified rectangle }
  
positive.code:   Result := actualtype <> None;
  end;
  
  function FindWindow(ARoot: TWindow; const x, y: cint): TWindow;
  var
    wattr: TXWindowAttributes;
    r, p: TWindow;
    children: PWindowArray = nil;
    numch: cuint = 0;
    i: integer;
  begin
  //  writeln('FindWindow ');
    XGetWindowAttributes(xapplication.Display, ARoot, @wattr);
    if (wattr.map_state <> IsUnmapped) and
        ((x >= wattr.x) and (x < (wattr.x + wattr.width))) and
  
negative.code:   count, remaining: culong;
    data: pchar = nil;
  begin
    XGetWindowProperty(xapplication.Display, AWin, xapplication.xia_wm_state, 0, 0,
        TBool(False), AnyPropertyType, @actualtype, @actualformat, @count,
        @remaining, @data);
  