From d90e82faa3ac47b908ef16bd334eeb20aa6f31dd Mon Sep 17 00:00:00 2001
From: Henrik Brix Andersen <henrik@brixandersen.dk>
Date: Sat, 30 Jun 2012 23:00:05 +0200
Subject: [PATCH] Check for unsaved changes before running configuration wizard

---
 lib/Slic3r/GUI/SkeinPanel.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Slic3r/GUI/SkeinPanel.pm b/lib/Slic3r/GUI/SkeinPanel.pm
index ed83a5bef..7999d98aa 100644
--- a/lib/Slic3r/GUI/SkeinPanel.pm
+++ b/lib/Slic3r/GUI/SkeinPanel.pm
@@ -226,6 +226,7 @@ sub load_config {
 sub config_wizard {
     my $self = shift;
 
+    return unless $self->check_unsaved_changes;
     if (Slic3r::GUI::ConfigWizard->new($self)->run) {
         $_->() for values %Slic3r::GUI::OptionsGroup::reload_callbacks;
         $_->set_dirty(1) for values %{$self->{options_tabs}};