repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: b3ff67293b8767e9e828b50cbb533bf3a12fe0f4:
path_to: 
revision_to: 

commit b3ff67293b8767e9e828b50cbb533bf3a12fe0f4
Author: Marc Lehmann 
Date:   Sat Jan 7 20:50:43 2006 +0000

    *** empty log message ***

diff --git a/src/perl/urxvt-popup b/src/perl/urxvt-popup

--- 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 {

-----END OF PAGE-----