… | |
… | |
2708 | sub invoke_mouse_wheel { |
2708 | sub invoke_mouse_wheel { |
2709 | my ($self, $ev) = @_; |
2709 | my ($self, $ev) = @_; |
2710 | |
2710 | |
2711 | my $delta = $self->{vertical} ? $ev->{dy} : $ev->{dx}; |
2711 | my $delta = $self->{vertical} ? $ev->{dy} : $ev->{dx}; |
2712 | |
2712 | |
|
|
2713 | my $pagepart = $ev->{mod} & CFPlus::KMOD_SHIFT ? 1 : 0.2; |
|
|
2714 | |
2713 | $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * 0.2); |
2715 | $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * $pagepart); |
2714 | |
2716 | |
2715 | ! ! $delta |
2717 | ! ! $delta |
2716 | } |
2718 | } |
2717 | |
2719 | |
2718 | sub update { |
2720 | sub update { |