| … | |
… | |
| 2352 | |
2352 | |
| 2353 | sub move_cursor_ver { |
2353 | sub move_cursor_ver { |
| 2354 | my ($self, $dy) = @_; |
2354 | my ($self, $dy) = @_; |
| 2355 | |
2355 | |
| 2356 | my ($line, $x) = $self->{layout}->index_to_line_x ($self->{cursor}); |
2356 | my ($line, $x) = $self->{layout}->index_to_line_x ($self->{cursor}); |
| 2357 | warn "cursor $self->{cursor} => $x $line\n";#d# |
|
|
| 2358 | |
2357 | |
| 2359 | $line += $dy; |
2358 | $line += $dy; |
| 2360 | |
2359 | |
| 2361 | if (defined (my $index = $self->{layout}->line_x_to_index ($line, $x))) { |
2360 | if (defined (my $index = $self->{layout}->line_x_to_index ($line, $x))) { |
| 2362 | warn "index $x $line => $index\n";#d# |
|
|
| 2363 | $self->{cursor} = $index; |
2361 | $self->{cursor} = $index; |
| 2364 | delete $self->{cur_h}; |
2362 | delete $self->{cur_h}; |
| 2365 | $self->update; |
2363 | $self->update; |
| 2366 | return; |
2364 | return; |
| 2367 | } |
2365 | } |
