[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/urxvt-popup

Comparing rxvt-unicode/src/perl/urxvt-popup (file contents):
Revision 1.2 by root, Sat Jan 7 20:29:28 2006 UTC vs.
Revision 1.6 by root, Sat Jan 7 23:18:56 2006 UTC

 #! perl
 # this extension implements popup-menu functionality for urxvt. it works
 # together with the urxvt::popup class.
-use List::Util;
 sub refresh {
    my ($self) = @_;
    my $cmd = "\x1b[H";
       if ($row == $self->{hover}) {
          $rend = $self->{press} ? "\x1b[m" : "\x1b[30;46m";
       }
-      $cmd .= "$rend\x1b[K" . $self->locale_encode ($item->{text}) . "\015\012";
+      $cmd .= "$rend\x1b[K";
+      $cmd .= $self->locale_encode ($item->{render}->($item));
+      $cmd .= "\015\012";
       $row++;
    }
    $self->cmd_parse (substr $cmd, 0, -2);
    if ($event->{button} == $self->{data}{event}{button}) {
       $self->ungrab;
       $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#
       if ($col >= 0 && $col < $self->ncol
 sub on_start {
    my ($self) = @_;
    # 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};
    $self->cmd_parse ("\x1b[?25l\x1b[?7l");
    refresh $self;
 sub on_map_notify {
    my ($self, $event) = @_;
    # should definitely not fail
    $self->grab ($self->{data}{event}{time}, 1)
-      and $self->allow_events_sync;
+      and $self->allow_events_async;
-}
-sub on_destroy {
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines