From 25191bd40538c7255c86745811c448ab0ee2980c Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 25 Mar 2014 15:30:56 +0100
Subject: [PATCH] Prevent circular event handlers on Windows. #1856

---
 lib/Slic3r/GUI/Plater.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/Slic3r/GUI/Plater.pm b/lib/Slic3r/GUI/Plater.pm
index 983b0526e..6cfc54856 100644
--- a/lib/Slic3r/GUI/Plater.pm
+++ b/lib/Slic3r/GUI/Plater.pm
@@ -41,6 +41,8 @@ use constant CANVAS_TEXT => join('-', +(localtime)[3,4]) eq '13-8'
     : 'Drag your objects here';
 use constant FILAMENT_CHOOSERS_SPACING => 3;
 
+my $PreventListEvents = 0;
+
 sub new {
     my $class = shift;
     my ($parent) = @_;
@@ -1121,6 +1123,7 @@ sub mouse_event {
 
 sub list_item_deselected {
     my ($self, $event) = @_;
+    return if $PreventListEvents;
     
     if ($self->{list}->GetFirstSelected == -1) {
         $self->select_object(undef);
@@ -1130,6 +1133,7 @@ sub list_item_deselected {
 
 sub list_item_selected {
     my ($self, $event) = @_;
+    return if $PreventListEvents;
     
     my $obj_idx = $event->GetIndex;
     $self->select_object($obj_idx);
@@ -1265,7 +1269,13 @@ sub select_object {
     $_->selected(0) for @{ $self->{objects} };
     if (defined $obj_idx) {
         $self->{objects}->[$obj_idx]->selected(1);
+        
+        # We use this flag to avoid circular event handling
+        # Select() happens to fire a wxEVT_LIST_ITEM_SELECTED on Windows, 
+        # whose event handler calls this method again and again and again
+        $PreventListEvents = 1;
         $self->{list}->Select($obj_idx, 1);
+        $PreventListEvents = 0;
     } else {
         # TODO: deselect all in list
     }