… | |
… | |
7 | my $popup = $self->popup ($event); |
7 | my $popup = $self->popup ($event); |
8 | |
8 | |
9 | my %unsafe = map +($_ => 1), |
9 | my %unsafe = map +($_ => 1), |
10 | qw(borderLess console iconic loginShell reverseVideo |
10 | qw(borderLess console iconic loginShell reverseVideo |
11 | scrollBar scrollBar_floating scrollBar_right |
11 | scrollBar scrollBar_floating scrollBar_right |
12 | secondaryScreen transparent utmpInhibit); |
12 | secondaryScreen transparent utmpInhibit meta8); |
13 | |
13 | |
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 | |