Source position: xinput.pp line 976
function XSetDeviceFocus(
display: PDisplay;
device: PXDevice;
focus: TWindow;
revert_to: cint;
time: TTime
):cint;