--- rxvt-unicode/src/perl/urxvt-popup 2006/01/07 23:18:56 1.6 +++ rxvt-unicode/src/perl/urxvt-popup 2006/01/08 00:29:38 1.7 @@ -57,16 +57,11 @@ $self->{press}[$event->{button}] = 0; - if ($event->{button} == 1) { - refresh $self; + refresh $self; - warn "$event->{row} $event->{col}\n";#d# - - 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