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