mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-21 16:23:32 +02:00
+ added unit xinput - a header translation of X11/extensions/XInput.h
git-svn-id: trunk@33620 -
This commit is contained in:
parent
3e3b821501
commit
5fa75f6037
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -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
|
||||
|
@ -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
1339
packages/x11/src/xinput.pp
Normal file
File diff suppressed because it is too large
Load Diff
57
packages/x11/tests/xinput_linktest.pp
Normal file
57
packages/x11/tests/xinput_linktest.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user