… | |
… | |
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 | |
… | |
… | |
2409 | |
2410 | |
2410 | $self->SUPER::invoke_button_down ($ev, $x, $y); |
2411 | $self->SUPER::invoke_button_down ($ev, $x, $y); |
2411 | |
2412 | |
2412 | $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; |
2413 | $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; |
2413 | |
2414 | |
2414 | $self->mouse_motion ($ev, $x, $y) |
2415 | $self->invoke_mouse_motion ($ev, $x, $y) |
2415 | } |
2416 | } |
2416 | |
2417 | |
2417 | sub invoke_mouse_motion { |
2418 | sub invoke_mouse_motion { |
2418 | my ($self, $ev, $x, $y) = @_; |
2419 | my ($self, $ev, $x, $y) = @_; |
2419 | |
2420 | |