From 40f1176346efa3e320aaf3ea90a51fcc04c8c478 Mon Sep 17 00:00:00 2001
From: Henrik Brix Andersen <henrik@brixandersen.dk>
Date: Fri, 27 Jul 2012 13:54:45 +0200
Subject: [PATCH] Be careful not to change the current selection when working
 around http://trac.wxwidgets.org/ticket/13769

---
 lib/Slic3r/GUI/Tab.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Slic3r/GUI/Tab.pm b/lib/Slic3r/GUI/Tab.pm
index c8bbb41bc..1aeebbaa4 100644
--- a/lib/Slic3r/GUI/Tab.pm
+++ b/lib/Slic3r/GUI/Tab.pm
@@ -229,20 +229,21 @@ sub set_dirty {
     my $self = shift;
     my ($dirty) = @_;
     
-    my $i = $self->{dirty} // $self->{presets_choice}->GetSelection; #/
+    my $selection = $self->{presets_choice}->GetSelection;
+    my $i = $self->{dirty} // $selection; #/
     my $text = $self->{presets_choice}->GetString($i);
     
     if ($dirty) {
         $self->{dirty} = $i;
         if ($text !~ / \(modified\)$/) {
             $self->{presets_choice}->SetString($i, "$text (modified)");
-            $self->{presets_choice}->SetSelection($i);  # wxMSW needs this after every SetString()
+            $self->{presets_choice}->SetSelection($selection);  # http://trac.wxwidgets.org/ticket/13769
         }
     } else {
         $self->{dirty} = undef;
         $text =~ s/ \(modified\)$//;
         $self->{presets_choice}->SetString($i, $text);
-        $self->{presets_choice}->SetSelection($i);  # wxMSW needs this after every SetString()
+        $self->{presets_choice}->SetSelection($selection);  # http://trac.wxwidgets.org/ticket/13769
     }
     $self->sync_presets;
 }