paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 07:50:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added XGetVisualInfo

Browse Source
This commit is contained in:
sg 1999-12-31 19:16:01 +00:00
parent b3a33a40b8
commit eb178568eb
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/x11/xutil.pp
View File

@ -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.