| 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 | |
