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

* pass the function results correctly after r33626

Browse Source 
git-svn-id: trunk@33627 -
This commit is contained in:
nickysn 2016-05-03 00:14:16 +00:00
parent 2cc4e17743
commit fd2da2f9b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -715,7 +715,7 @@ 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);
XIGrabDevice := 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;
@ -723,7 +723,7 @@ function XIGetProperty(display: PDisplay; deviceid: cint; _property: 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,
XIGetProperty := XIGetProperty(display, deviceid, _property, offset, length, Ord(delete_property), _type, type_return, format_return,
num_items_return, bytes_after_return, data);
end;