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.3 by root, Sun Jan 8 00:41:20 2006 UTC vs.
Revision 1.4 by root, Sun Jan 8 00:48:14 2006 UTC

1#! perl 1#! perl
2
3sub on_start {
4 my ($self) = @_;
5
6 $self->grab_button (3, urxvt::ControlMask);
7}
2 8
3sub on_button_press { 9sub on_button_press {
4 my ($self, $event) = @_; 10 my ($self, $event) = @_;
5 11
6 if ($event->{button} == 3 && $event->{state} & urxvt::ControlMask) { 12 if ($event->{button} == 3 && $event->{state} & urxvt::ControlMask) {

Diff Legend

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