| … | |
… | |
| 2840 | |
2840 | |
| 2841 | $self->SUPER::invoke_button_down ($ev, $x, $y); |
2841 | $self->SUPER::invoke_button_down ($ev, $x, $y); |
| 2842 | |
2842 | |
| 2843 | $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; |
2843 | $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; |
| 2844 | |
2844 | |
| 2845 | $self->invoke_mouse_motion ($ev, $x, $y) |
2845 | $self->invoke_mouse_motion ($ev, $x, $y); |
|
|
2846 | |
|
|
2847 | 1 |
| 2846 | } |
2848 | } |
| 2847 | |
2849 | |
| 2848 | sub invoke_mouse_motion { |
2850 | sub invoke_mouse_motion { |
| 2849 | my ($self, $ev, $x, $y) = @_; |
2851 | my ($self, $ev, $x, $y) = @_; |
| 2850 | |
2852 | |
| … | |
… | |
| 2870 | |
2872 | |
| 2871 | my $pagepart = $ev->{mod} & CFPlus::KMOD_SHIFT ? 1 : 0.2; |
2873 | my $pagepart = $ev->{mod} & CFPlus::KMOD_SHIFT ? 1 : 0.2; |
| 2872 | |
2874 | |
| 2873 | $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * $pagepart); |
2875 | $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * $pagepart); |
| 2874 | |
2876 | |
| 2875 | ! ! $delta |
2877 | 1 |
| 2876 | } |
2878 | } |
| 2877 | |
2879 | |
| 2878 | sub update { |
2880 | sub update { |
| 2879 | my ($self) = @_; |
2881 | my ($self) = @_; |
| 2880 | |
2882 | |
