anchor.diff:      ID: integer;
     end;
   
  -  TAtomArray = array [0..0] of TAtom;
  -  PAtomArray = ^TAtomArray;
  -
  -  TWindowArray = array [0..0] of TWindow;
  -  PWindowArray = ^TWindowArray;
  -
   var
     xapplication: TfpgApplication;
   
  
positive.code:   TfpgGContext  = Xlib.TGc;
    PInt = ^integer;
  
  
    {$HINTS OFF}
    TXIC = record
  
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;
  