anchor.diff:    TfpgGContext  = Xlib.TGc;
     PInt = ^integer;
   
  +  TAtomArray = array of TAtom;
  +  PAtomArray = ^TAtomArray;
  +
  +  TWindowArray = array of TWindow;
  +  PWindowArray = ^TWindowArray;
   
     {$HINTS OFF}
     TXIC = record
  
positive.code:     ID: integer;
    end;
  
    TAtomArray = array [0..0] of TAtom;
    PAtomArray = ^TAtomArray;
  
    TWindowArray = array [0..0] of TWindow;
    PWindowArray = ^TWindowArray;
  
  var
    xapplication: TfpgApplication;
  
  
negative.code:   e._type       := SelectionNotify;
    e.requestor   := ev.xselectionrequest.requestor;
    e.selection   := ev.xselectionrequest.selection;
    e.target      := ev.xselectionrequest.target;
    e.time        := ev.xselectionrequest.time;
    e._property   := ev.xselectionrequest._property;
  