Added test for #2097.

fixes #2115
This commit is contained in:
Ingo Bürk
2015-12-27 19:03:31 -05:00
parent 98875fda76
commit c099381632
2 changed files with 73 additions and 5 deletions

View File

@ -15,6 +15,8 @@ our @EXPORT = qw(
set_xkb_group
xtest_key_press
xtest_key_release
xtest_button_press
xtest_button_release
listen_for_binding
start_binding_capture
binding_events
@ -107,7 +109,7 @@ bool set_xkb_group(int group) {
return true;
}
bool xtest_key(int type, int detail) {
bool xtest_input(int type, int detail, int x, int y) {
xcb_generic_error_t *err;
xcb_void_cookie_t cookie;
@ -117,8 +119,8 @@ bool xtest_key(int type, int detail) {
detail, /* detail */
XCB_CURRENT_TIME, /* time */
XCB_NONE, /* root */
0, /* rootX */
0, /* rootY */
x, /* rootX */
y, /* rootY */
XCB_NONE); /* deviceid */
if ((err = xcb_request_check(conn, cookie)) != NULL) {
fprintf(stderr, "X error code %d\n", err->error_code);
@ -128,6 +130,10 @@ bool xtest_key(int type, int detail) {
return true;
}
bool xtest_key(int type, int detail) {
return xtest_input(type, detail, 0, 0);
}
bool xtest_key_press(int detail) {
return xtest_key(XCB_KEY_PRESS, detail);
}
@ -136,6 +142,14 @@ bool xtest_key_release(int detail) {
return xtest_key(XCB_KEY_RELEASE, detail);
}
bool xtest_button_press(int button, int x, int y) {
return xtest_input(XCB_BUTTON_PRESS, button, x, y);
}
bool xtest_button_release(int button, int x, int y) {
return xtest_input(XCB_BUTTON_RELEASE, button, x, y);
}
END_OF_C_CODE
sub import {
@ -240,14 +254,26 @@ Returns false when there was an X11 error changing the group, true otherwise.
Sends a KeyPress event via XTEST, with the specified C<$detail>, i.e. key code.
Use C<xev(1)> to find key codes.
Returns false when there was an X11 error changing the group, true otherwise.
Returns false when there was an X11 error, true otherwise.
=head2 xtest_key_release($detail)
Sends a KeyRelease event via XTEST, with the specified C<$detail>, i.e. key code.
Use C<xev(1)> to find key codes.
Returns false when there was an X11 error changing the group, true otherwise.
Returns false when there was an X11 error, true otherwise.
=head2 xtest_button_press($button, $x, $y)
Sends a ButtonPress event via XTEST, with the specified C<$button>.
Returns false when there was an X11 error, true otherwise.
=head2 xtest_button_release($button, $x, $y)
Sends a ButtonRelease event via XTEST, with the specified C<$button>.
Returns false when there was an X11 error, true otherwise.
=head1 AUTHOR