1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | sub msg { |
3 | sub msg { |
4 | my ($self, $msg) = @_; |
4 | my ($self, $msg) = @_; |
5 | |
5 | |
6 | $self->{overlay} = $self->overlay (0, -1, $self->strwidth ($msg), 1); |
6 | $self->{overlay} = $self->overlay (0, -1, $self->ncol, 2); |
7 | $self->{overlay}->set (0, 0, $msg); |
7 | $self->{overlay}->set (0, 0, $msg); |
8 | } |
8 | } |
9 | |
9 | |
10 | sub on_tt_paste { |
10 | sub on_tt_paste { |
11 | my ($self, $str) = @_; |
11 | my ($self, $str) = @_; |
… | |
… | |
14 | |
14 | |
15 | return unless $count; |
15 | return unless $count; |
16 | |
16 | |
17 | $self->{paste} = \$str; |
17 | $self->{paste} = \$str; |
18 | $self->msg ("Paste of $count lines, continue? (y/n)"); |
18 | $self->msg ("Paste of $count lines, continue? (y/n)"); |
|
|
19 | (my $preview = $self->locale_decode ($str)) =~ s/\n/\\n/g; |
|
|
20 | $self->{overlay}->set (0, 1, $preview); |
19 | $self->enable (key_press => \&key_press); |
21 | $self->enable (key_press => \&key_press); |
20 | |
22 | |
21 | 1 |
23 | 1 |
22 | } |
24 | } |
23 | |
25 | |