--- rxvt-unicode/src/perl/urxvt-popup	2006/01/08 22:58:13	1.12
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/19 17:37:01	1.14
@@ -53,11 +53,6 @@
 sub on_button_release {
    my ($self, $event) = @_;
 
-   if ($event->{button} == $self->{data}{event}{button}) {
-      $self->ungrab;
-      $self->destroy;
-   }
-
    $self->{press}[$event->{button}] = 0;
 
    my ($row, $col) = ($event->{row}, $event->{col});
@@ -69,6 +64,11 @@
 
    $self->refresh;
 
+   if ($event->{button} == $self->{data}{event}{button}) {
+      $self->ungrab;
+      $self->destroy;
+   }
+
    1
 }
 
@@ -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);