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.5 by root, Sun Jan 8 01:16:10 2006 UTC vs.
Revision 1.6 by root, Sun Jan 8 22:58:13 2006 UTC

… …
8 8
9sub on_button_press { 9sub on_button_press {
10 my ($self, $event) = @_; 10 my ($self, $event) = @_;
11 11
12 if ($event->{button} == 3 && $event->{state} & urxvt::ControlMask) { 12 if ($event->{button} == 3 && $event->{state} & urxvt::ControlMask) {
13 my $popup = $self->popup ($event); 13 my $popup = $self->popup ($event)
14 or return;
14 15
15 $popup->add_title ("Options"); 16 $popup->add_title ("Options");
16 $popup->add_separator; 17 $popup->add_separator;
17 18
18 my %unsafe = map +($_ => 1), 19 my %unsafe = map +($_ => 1),

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines