| … | |
… | |
| 1891 | my $sym = $ev->{sym}; |
1891 | my $sym = $ev->{sym}; |
| 1892 | |
1892 | |
| 1893 | if ($sym == 13) { |
1893 | if ($sym == 13) { |
| 1894 | unshift @{$self->{history}}, |
1894 | unshift @{$self->{history}}, |
| 1895 | my $txt = $self->get_text; |
1895 | my $txt = $self->get_text; |
|
|
1896 | |
| 1896 | $self->{history_pointer} = -1; |
1897 | $self->{history_pointer} = -1; |
| 1897 | $self->{history_saveback} = ''; |
1898 | $self->{history_saveback} = ''; |
| 1898 | $self->emit (activate => $txt); |
1899 | $self->emit (activate => $txt); |
| 1899 | $self->update; |
1900 | $self->update; |
| 1900 | |
1901 | |
