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

commit b266f0a9e8c62ffefc2119975182b9efde29302f
Author: Marc Lehmann 
Date:   Sun Jan 8 00:34:57 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
@@ -30,7 +30,7 @@ sub on_motion_notify {
    my ($self, $event) = @_;

    $self->{hover} = $event->{row} + 1;
-   refresh $self;
+   $self->refresh;

    1
 }
@@ -39,7 +39,7 @@ sub on_button_press {
    my ($self, $event) = @_;

    $self->{press}[$event->{button}] = 1;
-   refresh $self;
+   $self->refresh;

    1
 }
@@ -57,13 +57,13 @@ sub on_button_release {

    $self->{press}[$event->{button}] = 0;

-   refresh $self;
-
    if ($col >= 0 && $col < $self->ncol
        && $row >= 0 && $row < @{ $self->{data}{item} }) {
       $self->{data}{item}[$row]{activate}->($event);
    }

+   $self->refresh;
+
    1
 }

@@ -71,7 +71,7 @@ sub on_focus_out {
    my ($self) = @_;

    delete $self->{hover};
-   refresh $self;
+   $self->refresh;

    ()
 }

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