| … | … | ||
|---|---|---|---|
| 2528 | sub invoke_mouse_wheel { | 2528 | sub invoke_mouse_wheel { |
| 2529 | my ($self, $ev) = @_; | 2529 | my ($self, $ev) = @_; |
| 2530 | 2530 | ||
| 2531 | my $delta = $self->{vertical} ? $ev->{dy} : $ev->{dx}; | 2531 | my $delta = $self->{vertical} ? $ev->{dy} : $ev->{dx}; |
| 2532 | 2532 | ||
| 2533 | $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * 0.1); | 2533 | $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * 0.2); |
| 2534 | 2534 | ||
| 2535 | ! ! $delta | 2535 | ! ! $delta |
| 2536 | } | 2536 | } |
| 2537 | 2537 | ||
| 2538 | sub update { | 2538 | sub update { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |