--- rxvt-unicode/src/perl/urxvt-popup	2006/01/08 00:29:38	1.7
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/08 00:34:57	1.8
@@ -30,7 +30,7 @@
    my ($self, $event) = @_;
 
    $self->{hover} = $event->{row} + 1;
-   refresh $self;
+   $self->refresh;
 
    1
 }
@@ -39,7 +39,7 @@
    my ($self, $event) = @_;
 
    $self->{press}[$event->{button}] = 1;
-   refresh $self;
+   $self->refresh;
 
    1
 }
@@ -57,13 +57,13 @@
 
    $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 @@
    my ($self) = @_;
 
    delete $self->{hover};
-   refresh $self;
+   $self->refresh;
 
    ()
 }