ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/option-popup
(Generate patch)

Comparing rxvt-unicode/src/perl/option-popup (file contents):
Revision 1.9 by root, Thu Feb 2 00:18:51 2006 UTC vs.
Revision 1.10 by root, Mon Feb 6 06:14:08 2006 UTC

27 for my $name (sort keys %urxvt::OPTION) { 27 for my $name (sort keys %urxvt::OPTION) {
28 next if $unsafe{$name}; 28 next if $unsafe{$name};
29 29
30 my $optval = $urxvt::OPTION{$name}; 30 my $optval = $urxvt::OPTION{$name};
31 31
32 $popup->add_toggle ($name => sub { $self->option ($optval, $_[0]) }, 32 $popup->add_toggle ($name => $self->option ($optval),
33 $self->option ($optval)); 33 sub { $self->option ($optval, $_[0]) });
34 }
35
36 for my $hook (@{ $self->{term}{option_popup_hook} || [] }) {
37 if (my ($name, $value, $cb) = $hook->($popup)) {
38 $popup->add_toggle ($name => $value, sub { $cb->($_[0]) });
39 }
34 } 40 }
35 41
36 $popup->show; 42 $popup->show;
37 43
38 return 1; 44 return 1;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines