nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

i3test: blockingly wait for events 

…as polling the xcb file descriptor directly is not reliable.
This commit is contained in:
Michael Stapelberg 2017-10-03 10:02:41 +02:00
parent 8e528d2de8
commit 7a672a9d41
1 changed files with 3 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
testcases/lib/i3test.pm.in
View File

@ -193,29 +193,11 @@ received, etc.
sub wait_for_event { sub wait_for_event {
my ($timeout, $cb) = @_; my ($timeout, $cb) = @_;
my $cv = AE::cv;
$x->flush; $x->flush;
# unfortunately, there is no constant for this while (defined(my $event = $x->wait_for_event)) {
my $ae_read = 0; return 1 if $cb->($event);
}
my $guard = AE::io $x->get_file_descriptor, $ae_read, sub {
while (defined(my $event = $x->poll_for_event)) {
if ($cb->($event)) {
$cv->send(1);
last;
}
}
};
# Trigger timeout after $timeout seconds (can be fractional)
my $t = AE::timer $timeout, 0, sub { warn "timeout ($timeout secs)"; $cv->send(0) };
my $result = $cv->recv;
undef $t;
undef $guard;
return $result;
} }
=head2 wait_for_map($window) =head2 wait_for_map($window)