* Added XGetVisualInfo

packages/x11/xutil.pp

@@ -1,3 +1,5 @@
+{$MODE objfpc}	// get integer sizes right
+
 Unit XUtil;
 
 interface
@@ -302,6 +304,14 @@ type TXContext = Integer;
  XStringToContext(string)   ((XContext) XrmStringToQuark(string))
 }
 
+const _xlib = 'X11';
+
+function XGetVisualInfo(display: PDisplay; vinfo_mask: LongInt;
+  vinfo_template: PXVisualInfo; var nitems_return: Integer): PXVisualInfo;
+  cdecl; external _xlib;
+
+
+
 Implementation
 
 end.