Reset mouse cursor on button up event.

degen-loop-screen
Henrik Brix Andersen 2012-07-25 00:51:41 +02:00
parent 5502537065
commit affaee415b
1 changed files with 1 additions and 0 deletions

View File

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