paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 16:23:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added unit xinput - a header translation of X11/extensions/XInput.h

Browse Source 
git-svn-id: trunk@33620 -
This commit is contained in:
nickysn 2016-05-02 16:47:27 +00:00
parent 3e3b821501
commit 5fa75f6037
4 changed files with 1405 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -8054,6 +8054,7 @@ packages/x11/src/xft.pas svneol=native#text/pascal
packages/x11/src/xi.pp svneol=native#text/plain
packages/x11/src/xi2.pp svneol=native#text/plain
packages/x11/src/xinerama.pp svneol=native#text/plain
packages/x11/src/xinput.pp svneol=native#text/plain
packages/x11/src/xkb.pp svneol=native#text/plain
packages/x11/src/xkblib.pp svneol=native#text/plain
packages/x11/src/xlib.pp svneol=native#text/plain
@ -8064,6 +8065,7 @@ packages/x11/src/xshm.pp svneol=native#text/plain
packages/x11/src/xutil.pp svneol=native#text/plain
packages/x11/src/xv.pp svneol=native#text/plain
packages/x11/src/xvlib.pp svneol=native#text/plain
packages/x11/tests/xinput_linktest.pp svneol=native#text/plain
packages/xforms/Makefile svneol=native#text/plain
packages/xforms/Makefile.fpc svneol=native#text/plain
packages/xforms/Makefile.fpc.fpcmake svneol=native#text/plain

7
packages/x11/fpmake.pp
View File

@ -51,6 +51,13 @@ begin
end;
T:=P.Targets.AddUnit('xi.pp');
T:=P.Targets.AddUnit('xi2.pp');
T:=P.Targets.AddUnit('xinput.pp');
with T.Dependencies do
begin
AddUnit('x');
AddUnit('xlib');
AddUnit('xi');
end;
T:=P.Targets.AddUnit('xkblib.pp');
with T.Dependencies do
begin

1339
packages/x11/src/xinput.pp Normal file
View File

File diff suppressed because it is too large Load Diff

57
packages/x11/tests/xinput_linktest.pp Normal file
View File

@ -0,0 +1,57 @@
{ this program just links all externals, declared in the xinput unit }
program xinput_linktest;
uses
xinput;
begin
halt(0);
_XiGetDevicePresenceNotifyEvent(nil);
_xibaddevice(nil, nil);
_xibadclass(nil, nil);
_xibadevent(nil, nil);
_xibadmode(nil, nil);
_xidevicebusy(nil, nil);
XChangeKeyboardDevice(nil, nil);
XChangePointerDevice(nil, nil, 0, 0);
XGrabDevice(nil, nil, 0, 0, 0, nil, 0, 0, 0);
XUngrabDevice(nil, nil, 0);
XGrabDeviceKey(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0);
XUngrabDeviceKey(nil, nil, 0, 0, nil, 0);
XGrabDeviceButton(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0);
XUngrabDeviceButton(nil, nil, 0, 0, nil, 0);
XAllowDeviceEvents(nil, nil, 0, 0);
XGetDeviceFocus(nil, nil, nil, nil, nil);
XSetDeviceFocus(nil, nil, 0, 0, 0);
XGetFeedbackControl(nil, nil, nil);
XFreeFeedbackList(nil);
XChangeFeedbackControl(nil, nil, 0, nil);
XDeviceBell(nil, nil, 0, 0, 0);
XGetDeviceKeyMapping(nil, nil, 0, 0, nil);
XChangeDeviceKeyMapping(nil, nil, 0, 0, nil, 0);
XGetDeviceModifierMapping(nil, nil);
XSetDeviceModifierMapping(nil, nil, nil);
XSetDeviceButtonMapping(nil, nil, nil, 0);
XGetDeviceButtonMapping(nil, nil, nil, 0);
XQueryDeviceState(nil, nil);
XFreeDeviceState(nil);
XGetExtensionVersion(nil, nil);
XListInputDevices(nil, nil);
XFreeDeviceList(nil);
XOpenDevice(nil, 0);
XCloseDevice(nil, nil);
XSetDeviceMode(nil, nil, 0);
XSetDeviceValuators(nil, nil, nil, 0, 0);
XGetDeviceControl(nil, nil, 0);
XChangeDeviceControl(nil, nil, 0, nil);
XSelectExtensionEvent(nil, 0, nil, 0);
XGetSelectedExtensionEvents(nil, 0, nil, nil, nil, nil);
XChangeDeviceDontPropagateList(nil, 0, 0, nil, 0);
XGetDeviceDontPropagateList(nil, 0, nil);
XSendExtensionEvent(nil, nil, 0, 0, 0, nil, nil);
XGetDeviceMotionEvents(nil, nil, 0, 0, nil, nil, nil);
XFreeDeviceMotionEvents(nil);
XFreeDeviceControl(nil);
XListDeviceProperties(nil, nil, nil);
XChangeDeviceProperty(nil, nil, 0, 0, 0, 0, nil, 0);
XDeleteDeviceProperty(nil, nil, 0);
XGetDeviceProperty(nil, nil, 0, 0, 0, 0, 0, nil, nil, nil, nil, nil);
end.