--- rxvt-unicode/src/perl/urxvt-popup	2006/01/07 20:50:43	1.3
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/07 23:18:56	1.6
@@ -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) = @_;
 
@@ -18,7 +16,9 @@
          $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++;
    }
@@ -132,8 +132,6 @@
       and $self->allow_events_async;
 }
 
-sub on_destroy {
-}