Reset mouse cursor on button up event.

This commit is contained in:
Henrik Brix Andersen 2012-07-25 00:51:41 +02:00
parent 5502537065
commit affaee415b

View File

@ -783,6 +783,7 @@ sub mouse_event {
$parent->Refresh; $parent->Refresh;
$self->{drag_start_pos} = undef; $self->{drag_start_pos} = undef;
$self->{drag_object} = undef; $self->{drag_object} = undef;
$self->SetCursor(wxSTANDARD_CURSOR);
} elsif ($event->Dragging) { } elsif ($event->Dragging) {
return if !$self->{drag_start_pos}; # concurrency problems return if !$self->{drag_start_pos}; # concurrency problems
for my $obj ($self->{drag_object}) { for my $obj ($self->{drag_object}) {