| … | |
… | |
| 14 | for my $name (sort keys %urxvt::OPTION) { |
14 | for my $name (sort keys %urxvt::OPTION) { |
| 15 | next if $unsafe{$name}; |
15 | next if $unsafe{$name}; |
| 16 | |
16 | |
| 17 | my $optval = $urxvt::OPTION{$name}; |
17 | my $optval = $urxvt::OPTION{$name}; |
| 18 | |
18 | |
| 19 | $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]); warn "toggle $optval, $_[0]" }, |
19 | $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]) }, |
| 20 | $self->option ($optval)); |
20 | $self->option ($optval)); |
| 21 | } |
21 | } |
| 22 | |
22 | |
| 23 | $popup->show; |
23 | $popup->show; |
| 24 | |
24 | |
