*** empty log message ***

diff --git a/src/perl/option-popup b/src/perl/option-popup
index 9ecb397139139b3b21604e50c36a809bd799fe07..45e3301591b5a6e353d603610015a726468f47c7 100644 (file)
--- a/src/perl/option-popup
+++ b/src/perl/option-popup
@@ -1,5 +1,11 @@
 #! perl
 
+sub on_start {
+   my ($self) = @_;
+
+   $self->grab_button (3, urxvt::ControlMask);
+}
+
 sub on_button_press {
    my ($self, $event) = @_;
 

diff --git a/src/perl/urxvt-popup b/src/perl/urxvt-popup
index abfce9972956852307c56dc25faf2aac3989c8d5..ed343f98e9da0a9f35088f19abc0510bc8c5ce6b 100644 (file)
--- a/src/perl/urxvt-popup
+++ b/src/perl/urxvt-popup
@@ -111,15 +111,15 @@ sub on_init {
 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;
-
    ()
 }
 

diff --git a/src/urxvt.pm b/src/urxvt.pm
index dc1de30bdd1836ea96eed43219ed47f2128ef0cf..58e1d1166e5eed66bb3e49823f85ff28cb141224 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -1045,7 +1045,7 @@ sub add_toggle {
       type => "button",
       text => "  $text",
       value => $value,
-      render => sub { ($item->{value} ? "✔" : " ") . $text },
+      render => sub { ($item->{value} ? "* " : "  ") . $text },
       activate => sub { $cb->($item->{value} = !$item->{value}); },
    };