anchor.diff:    e._type       := SelectionNotify;
     e.requestor   := ev.xselectionrequest.requestor;
     e.selection   := ev.xselectionrequest.selection;
  -//  e.selection   := xapplication.xia_clipboard;
     e.target      := ev.xselectionrequest.target;
     e.time        := ev.xselectionrequest.time;
     e._property   := ev.xselectionrequest._property;
  
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:   TfpgGContext  = Xlib.TGc;
    PInt = ^integer;
  
    TAtomArray = array of TAtom;
    PAtomArray = ^TAtomArray;
  
    TWindowArray = array of TWindow;
    PWindowArray = ^TWindowArray;
  
    {$HINTS OFF}
    TXIC = record
  