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