From d860d718f051956ee971dc0cf8263508448016d5 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Sun, 8 Jan 2006 00:27:47 +0000
Subject: [PATCH] *** empty log message ***

---
 MANIFEST              |  2 ++
 src/perl/option-popup |  2 +-
 src/perl/urxvt-popup  | 10 +++++-----
 src/urxvt.pm          |  4 ++--
 4 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/MANIFEST b/MANIFEST
index fd2c0f0e..21f3fdb7 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -174,6 +174,8 @@ src/rxvtperl.xs
 src/perl/example-refresh-hooks
 src/perl/block-graphics-to-ascii
 src/perl/digital-clock
+src/perl/option-popup
+src/perl/urxvt-popup
 src/perl/selection
 src/perl/mark-urls
 
diff --git a/src/perl/option-popup b/src/perl/option-popup
index d5166027..92da3d49 100644
--- a/src/perl/option-popup
+++ b/src/perl/option-popup
@@ -16,7 +16,7 @@ sub on_button_press {
 
          my $optval = $urxvt::OPTION{$name};
 
-         $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]); warn "toggle $optval, $_[0]" },
+         $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]) },
                              $self->option ($optval));
       }
 
diff --git a/src/perl/urxvt-popup b/src/perl/urxvt-popup
index 25954476..f213aeb4 100644
--- a/src/perl/urxvt-popup
+++ b/src/perl/urxvt-popup
@@ -30,7 +30,7 @@ sub on_motion_notify {
    my ($self, $event) = @_;
 
    $self->{hover} = $event->{row} + 1;
-   refresh $self;
+   $self->refresh;
 
    1
 }
@@ -39,7 +39,7 @@ sub on_button_press {
    my ($self, $event) = @_;
 
    $self->{press}[$event->{button}] = 1;
-   refresh $self;
+   $self->refresh;
 
    1
 }
@@ -57,13 +57,13 @@ sub on_button_release {
 
    $self->{press}[$event->{button}] = 0;
 
-   refresh $self;
-
    if ($col >= 0 && $col < $self->ncol
        && $row >= 0 && $row < @{ $self->{data}{item} }) {
       $self->{data}{item}[$row]{activate}->($event);
    }
 
+   $self->refresh;
+
    1
 }
 
@@ -71,7 +71,7 @@ sub on_focus_out {
    my ($self) = @_;
 
    delete $self->{hover};
-   refresh $self;
+   $self->refresh;
 
    ()
 }
diff --git a/src/urxvt.pm b/src/urxvt.pm
index 22aad3c1..dc1de30b 100644
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -487,8 +487,8 @@ sub invoke {
 
       for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
          if ($_ eq "default") {
-            $want_ext{$_}++ for qw(selection);
-         } elsif (/-(.*)/) {
+            $want_ext{$_}++ for qw(selection option-popup);
+         } elsif (/^-(.*)$/) {
             delete $want_ext{$1};
          } else {
             $want_ext{$_}++;
-- 
2.34.1