… | |
… | |
2410 | |
2410 | |
2411 | $self->SUPER::invoke_button_down ($ev, $x, $y); |
2411 | $self->SUPER::invoke_button_down ($ev, $x, $y); |
2412 | |
2412 | |
2413 | $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; |
2413 | $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; |
2414 | |
2414 | |
2415 | $self->mouse_motion ($ev, $x, $y) |
2415 | $self->invoke_mouse_motion ($ev, $x, $y) |
2416 | } |
2416 | } |
2417 | |
2417 | |
2418 | sub invoke_mouse_motion { |
2418 | sub invoke_mouse_motion { |
2419 | my ($self, $ev, $x, $y) = @_; |
2419 | my ($self, $ev, $x, $y) = @_; |
2420 | |
2420 | |