--- rxvt-unicode/src/perl/urxvt-popup	2006/01/08 00:41:20	1.9
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/08 01:16:10	1.11
@@ -10,13 +10,13 @@
 
    my $row = 1;
    for my $item (@{ $self->{data}{item} }) {
-      my $rend = "\x1b[30;47m";
+      my $rend = "normal";
 
       if ($row == $self->{hover}) {
-         $rend = $self->{press} ? "\x1b[m" : "\x1b[30;46m";
+         $rend = $self->{press} ? "active" : "hover";
       }
 
-      $cmd .= "$rend\x1b[K";
+      $cmd .= "$item->{rend}{$rend}\x1b[K";
       $cmd .= $self->locale_encode ($item->{render}->($item));
       $cmd .= "\015\012";
 
@@ -111,15 +111,15 @@
 sub on_start {
    my ($self) = @_;
 
+   $self->cmd_parse ("\x1b[?25l\x1b[?7l");
+   $self->refresh;
+
    # might fail, but try anyways
    $self->grab ($self->{data}{event}{time}, 1)
       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;
-
    ()
 }