Glitches when panning with middle mouse button. #2454

This commit is contained in:
Alessandro Ranellucci 2015-01-07 11:58:22 +01:00
parent 4688ae2fb6
commit 6962b8dddd

View file

@ -208,7 +208,7 @@ sub mouse_event {
} }
$self->_drag_start_xy($pos); $self->_drag_start_xy($pos);
} }
} elsif ($e->LeftUp || $e->RightUp) { } elsif ($e->LeftUp || $e->MiddleUp || $e->RightUp) {
if ($self->on_move && defined $self->_drag_volume_idx) { if ($self->on_move && defined $self->_drag_volume_idx) {
$self->on_move->($self->_drag_volume_idx) if $self->_dragged; $self->on_move->($self->_drag_volume_idx) if $self->_dragged;
} }