--- rxvt-unicode/src/perl/urxvt-popup	2006/01/07 21:43:17	1.5
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/08 00:29:38	1.7
@@ -3,8 +3,6 @@
 # this extension implements popup-menu functionality for urxvt. it works
 # together with the urxvt::popup class.
 
-use List::Util;
-
 sub refresh {
    my ($self) = @_;
 
@@ -59,16 +57,11 @@
 
    $self->{press}[$event->{button}] = 0;
 
-   if ($event->{button} == 1) {
-      refresh $self;
-
-      warn "$event->{row} $event->{col}\n";#d#
+   refresh $self;
 
-      if ($col >= 0 && $col < $self->ncol
-          && $row >= 0 && $row < @{ $self->{data}{item} }) {
-         $self->{data}{item}[$row]{activate}->($event);
-         print "ok\n";
-      }
+   if ($col >= 0 && $col < $self->ncol
+       && $row >= 0 && $row < @{ $self->{data}{item} }) {
+      $self->{data}{item}[$row]{activate}->($event);
    }
 
    1