anchor.diff:    child: TWindow;
     prevchild: TWindow;
   
  -  ret_root: TfpgWinHandle;
     ret_child: TfpgWinHandle;
  -  root_x, root_y: integer;
  -  child_x, child_y: integer;
  -
  -  s: string;
  +
     i: integer;
     lTargetWinHandle: TWindow;
     w: TfpgX11Window;
  
positive.code: var
    actualtype: TAtom;
    actualformat: cint;
    count, remaining, dummy: culong;
    s: TfpgString;
    data: PChar;
    lversion: culong;
  begin
  
negative.code:   wg2: TfpgWidget;
    swg: TfpgWidget;
    msgp: TfpgMessageParams;
    lDropAction: TfpgDropAction;
    lAccept: Boolean;
    lMimeChoice: TfpgString;
  