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

Comparing rxvt-unicode/src/perl/readline (file contents):
Revision 1.6 by root, Sun Jan 22 20:39:47 2006 UTC vs.
Revision 1.7 by root, Mon Feb 6 06:14:08 2006 UTC

… …
2 2
3use POSIX (); 3use POSIX ();
4 4
5my $termios = new POSIX::Termios; 5my $termios = new POSIX::Termios;
6 6
7sub on_init {
8 my ($self) = @_;
9
10 $self->{enabled} = 1;
11
12 push @{ $self->{term}{option_popup_hook} }, sub {
13 ("readline" => $self->{enabled}, sub { $self->{enabled} = shift })
14 };
15
16 ()
17}
18
7sub on_button_press { 19sub on_button_press {
8 my ($self, $event) = @_; 20 my ($self, $event) = @_;
9 21
10 return 22 return
11 if $self->current_screen || $self->hidden_cursor; 23 if $self->current_screen || $self->hidden_cursor || !$self->{enabled};
12 24
13 $termios->getattr ($self->pty_fd) 25 $termios->getattr ($self->pty_fd)
14 or return; 26 or return;
15 27
16 return 28 return

Diff Legend

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