From adf3d615bd15a758d8b5c661194de59331ddca6a Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Wed, 25 Jun 2014 11:45:39 +0200
Subject: [PATCH] Fix Print preset being dirty at load time

---
 lib/Slic3r/GUI/Tab.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/Slic3r/GUI/Tab.pm b/lib/Slic3r/GUI/Tab.pm
index 9555ade22..baf4bfeb3 100644
--- a/lib/Slic3r/GUI/Tab.pm
+++ b/lib/Slic3r/GUI/Tab.pm
@@ -209,7 +209,13 @@ sub on_select_preset {
         
         $self->on_preset_loaded;
         $self->reload_values;
-        $self->set_dirty(0);
+        
+        # use CallAfter because some field triggers schedule on_change calls using CallAfter,
+        # and we don't want them to be called after this set_dirty(0) as they would mark the 
+        # preset dirty again
+        wxTheApp->CallAfter(sub {
+            $self->set_dirty(0);
+        });
         $Slic3r::GUI::Settings->{presets}{$self->name} = $preset->{file} ? basename($preset->{file}) : '';
     };
     if ($@) {