note
basiliscos
<p>Thanks all! </p>
<p>Unfortunately I don't see event-loop in <a href="https://metacpan.org/pod/X11::Protocol#EVENTS">X11::Protocol</a>, i.e. polling capabilities. I don't wan't go to low-level capabilities, i.e. poll underlying socket for events. I'll try to use the libkeybinder, and tell the details here.
</p>
<p>
PS. Mixed usage of Gtk2 events and X11 events seems to be leading to some messy:
</p>
<code>
...
my $seq = $x->GrabKey(
$k->KeysymToKeycode("z"),
'AnyModifier', $x->root, 0, 'Asynchronous', 'Asynchronous');
$x->event_handler('queue');
my %event = $x->next_event;
### %event
my $t = AE::timer 0, 1, sub {
my %event = $x->next_event;
# %event
};
Gtk2->main;
</code>
It exists with:
<code>
Protocol error: bad 2 (Value); Sequence Number 4
Opcode (33, 0) = GrabKey
Bad value 183 (0xb7)
at ./gtk-treeview-action line 31.
</code>
1067146
1067151