paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added boolean overloads for the functions in the xinput2 unit, that receive a

Browse Source 
TBool parameter

git-svn-id: trunk@33626 -
This commit is contained in:
nickysn 2016-05-03 00:03:27 +00:00
parent a1621bd01c
commit 2cc4e17743
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
packages/x11/src/xinput2.pp
View File

@ -500,6 +500,19 @@ function XIGrabDevice(
mask: PXIEventMask
): TStatus; cdecl; external libXi;
{ boolean overload for the TBool parameter }
function XIGrabDevice(
dpy: PDisplay;
deviceid: cint;
grab_window: TWindow;
time: TTime;
cursor: TCursor;
grab_mode: cint;
paired_device_mode: cint;
owner_events: Boolean;
mask: PXIEventMask
): TStatus; inline;
function XIUngrabDevice(
dpy: PDisplay;
deviceid: cint;
@ -663,6 +676,22 @@ function XIGetProperty(
data: PPcuchar
): TStatus; cdecl; external libXi;
{ boolean overload for the TBool parameter }
function XIGetProperty(
display: PDisplay;
deviceid: cint;
_property: TAtom;
offset: clong;
length: clong;
delete_property: Boolean;
_type: TAtom;
type_return: PAtom;
format_return: Pcint;
num_items_return: Pculong;
bytes_after_return: Pculong;
data: PPcuchar
): TStatus; inline;
procedure XIBarrierReleasePointers(
display: PDisplay;
barriers: PXIBarrierReleasePointerInfo;
@ -681,4 +710,21 @@ procedure XIFreeDeviceInfo(info: PXIDeviceInfo); cdecl; external libXi;
//_XFUNCPROTOEND
implementation
function XIGrabDevice(dpy: PDisplay; deviceid: cint; grab_window: TWindow;
time: TTime; cursor: TCursor; grab_mode: cint; paired_device_mode: cint;
owner_events: Boolean; mask: PXIEventMask): TStatus; inline;
begin
XIGrabDevice(dpy, deviceid, grab_window, time, cursor, grab_mode, paired_device_mode, Ord(owner_events), mask);
end;
function XIGetProperty(display: PDisplay; deviceid: cint; _property: TAtom;
offset: clong; length: clong; delete_property: Boolean; _type: TAtom;
type_return: PAtom; format_return: Pcint; num_items_return: Pculong;
bytes_after_return: Pculong; data: PPcuchar): TStatus;
begin
XIGetProperty(display, deviceid, _property, offset, length, Ord(delete_property), _type, type_return, format_return,
num_items_return, bytes_after_return, data);
end;
end.