sub _listen {
    my $self = shift;
    my $x = $self->x;
    $x->event_handler('queue');
                                                     
    # listen to both the x protocol events as well as our local term
                                                  
    require IO::Select;

    my $in_fh = ...; # some other handle I'm looking at

    my $x_fh = $x->{'connection'}->fh;
    $x_fh->autoflush(1);
    $in_fh->autoflush(1);

    my $sel = IO::Select->new($x_fh, $in_fh);

    # handle events as they occur
                          
    $self->_init_state(1);
    my $i;
    while (1) {
        my ($fh) = $sel->can_read(10);
        next if ! $fh;
        if ($fh == $in_fh) {
            $self->_handle_term_input($fh) || last;
        } else {
            $self->read_x_event;
        }
    }
}


sub read_x_event {
    my $self = shift;
    my $cb_map = shift || $self->{'global_cb_map'} || die "No global callbacks initialized\n";
    my $x = $self->x;
    my %event = $x->next_event;
    return if ($event{'name'} || '') ne 'KeyRelease';
    my $code = $event{'detail'};
    my $mod  = $event{'state'};

    ... the rest of my code here
}