--- rxvt-unicode/src/perl/urxvt-popup 2006/01/07 20:29:28 1.2 +++ rxvt-unicode/src/perl/urxvt-popup 2006/01/07 20:50:43 1.3 @@ -55,8 +55,9 @@ $self->destroy; } + $self->{press}[$event->{button}] = 0; + if ($event->{button} == 1) { - $self->{press}[$event->{button}] = 0; refresh $self; warn "$event->{row} $event->{col}\n";#d# @@ -113,7 +114,7 @@ # might fail, but try anyways $self->grab ($self->{data}{event}{time}, 1) - and $self->allow_events_sync; + and $self->allow_events_async; on_button_press $self, $self->{data}{event} if $self->{data}{event}{button}; @@ -128,7 +129,7 @@ # should definitely not fail $self->grab ($self->{data}{event}{time}, 1) - and $self->allow_events_sync; + and $self->allow_events_async; } sub on_destroy {