1{ this program just links all externals, declared in the xinput unit } 2program xinput_linktest; 3uses 4 xinput; 5begin 6 halt(0); 7 _XiGetDevicePresenceNotifyEvent(nil); 8 _xibaddevice(nil, nil); 9 _xibadclass(nil, nil); 10 _xibadevent(nil, nil); 11 _xibadmode(nil, nil); 12 _xidevicebusy(nil, nil); 13 XChangeKeyboardDevice(nil, nil); 14 XChangePointerDevice(nil, nil, 0, 0); 15 XGrabDevice(nil, nil, 0, 0, 0, nil, 0, 0, 0); 16 XUngrabDevice(nil, nil, 0); 17 XGrabDeviceKey(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0); 18 XUngrabDeviceKey(nil, nil, 0, 0, nil, 0); 19 XGrabDeviceButton(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0); 20 XUngrabDeviceButton(nil, nil, 0, 0, nil, 0); 21 XAllowDeviceEvents(nil, nil, 0, 0); 22 XGetDeviceFocus(nil, nil, nil, nil, nil); 23 XSetDeviceFocus(nil, nil, 0, 0, 0); 24 XGetFeedbackControl(nil, nil, nil); 25 XFreeFeedbackList(nil); 26 XChangeFeedbackControl(nil, nil, 0, nil); 27 XDeviceBell(nil, nil, 0, 0, 0); 28 XGetDeviceKeyMapping(nil, nil, 0, 0, nil); 29 XChangeDeviceKeyMapping(nil, nil, 0, 0, nil, 0); 30 XGetDeviceModifierMapping(nil, nil); 31 XSetDeviceModifierMapping(nil, nil, nil); 32 XSetDeviceButtonMapping(nil, nil, nil, 0); 33 XGetDeviceButtonMapping(nil, nil, nil, 0); 34 XQueryDeviceState(nil, nil); 35 XFreeDeviceState(nil); 36 XGetExtensionVersion(nil, nil); 37 XListInputDevices(nil, nil); 38 XFreeDeviceList(nil); 39 XOpenDevice(nil, 0); 40 XCloseDevice(nil, nil); 41 XSetDeviceMode(nil, nil, 0); 42 XSetDeviceValuators(nil, nil, nil, 0, 0); 43 XGetDeviceControl(nil, nil, 0); 44 XChangeDeviceControl(nil, nil, 0, nil); 45 XSelectExtensionEvent(nil, 0, nil, 0); 46 XGetSelectedExtensionEvents(nil, 0, nil, nil, nil, nil); 47 XChangeDeviceDontPropagateList(nil, 0, 0, nil, 0); 48 XGetDeviceDontPropagateList(nil, 0, nil); 49 XSendExtensionEvent(nil, nil, 0, 0, 0, nil, nil); 50 XGetDeviceMotionEvents(nil, nil, 0, 0, nil, nil, nil); 51 XFreeDeviceMotionEvents(nil); 52 XFreeDeviceControl(nil); 53 XListDeviceProperties(nil, nil, nil); 54 XChangeDeviceProperty(nil, nil, 0, 0, 0, 0, nil, 0); 55 XDeleteDeviceProperty(nil, nil, 0); 56 XGetDeviceProperty(nil, nil, 0, 0, 0, 0, 0, nil, nil, nil, nil, nil); 57end. 58