--- rxvt-unicode/src/perl/urxvt-popup	2006/01/08 22:58:13	1.12
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/18 11:05:09	1.13
@@ -89,6 +89,9 @@
    $_->{width} = $self->strwidth ($_->{text})
       for @{ $data->{item} };
 
+   $self->resource (title => "URxvt Popup Menu");
+   $self->resource (name => "URxvt.popup");
+
    $self->resource ($_ => $data->{term}->resource ($_))
       for qw(font boldFont italicFont boldItalicFont color+0 color+1);