ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.363 by root, Sun Dec 10 00:06:49 2006 UTC vs.
Revision 1.364 by root, Sat Dec 23 10:18:27 2006 UTC

… …
2708sub invoke_mouse_wheel { 2708sub 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
2718sub update { 2720sub update {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines