From: root <root>
Date: Sun, 8 Jan 2006 00:48:14 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=5fe11ca0eadaa455c085dda67a63f23c460ba311;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/option-popup b/src/perl/option-popup
index 9ecb3971..45e33015 100644
--- 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 abfce997..ed343f98 100644
--- 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 dc1de30b..58e1d116 100644
--- 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}); },
    };