From: root <root>
Date: Sat, 7 Jan 2006 20:50:43 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=7cfd2e496160192cea58aabe6c70c3126b633557;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/urxvt-popup b/src/perl/urxvt-popup
index 3d90d405..7d3534d0 100644
--- a/src/perl/urxvt-popup
+++ b/src/perl/urxvt-popup
@@ -55,8 +55,9 @@ sub on_button_release {
       $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 @@ sub on_start {
 
    # 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 @@ sub on_map_notify {
 
    # should definitely not fail
    $self->grab ($self->{data}{event}{time}, 1)
-      and $self->allow_events_sync;
+      and $self->allow_events_async;
 }
 
 sub on_destroy {