|
@@ -1,3 +1,5 @@
|
|
|
|
|
+{$MODE objfpc} // get integer sizes right
|
|
|
|
|
+
|
|
|
Unit XUtil;
|
|
Unit XUtil;
|
|
|
|
|
|
|
|
interface
|
|
interface
|
|
@@ -302,6 +304,14 @@ type TXContext = Integer;
|
|
|
XStringToContext(string) ((XContext) XrmStringToQuark(string))
|
|
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
|
|
Implementation
|
|
|
|
|
|
|
|
end.
|
|
end.
|
sg