--- rxvt-unicode/src/perl/urxvt-popup	2006/01/07 20:23:53	1.1
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/07 20:50:43	1.3
@@ -1,5 +1,8 @@
 #! perl
 
+# this extension implements popup-menu functionality for urxvt. it works
+# together with the urxvt::popup class.
+
 use List::Util;
 
 sub refresh {
@@ -52,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#
@@ -110,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};
 
@@ -125,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 {