Check for unsaved changes before running configuration wizard

This commit is contained in:
Henrik Brix Andersen 2012-06-30 23:00:05 +02:00
parent df658eb636
commit d90e82faa3

View file

@ -226,6 +226,7 @@ sub load_config {
sub config_wizard { sub config_wizard {
my $self = shift; my $self = shift;
return unless $self->check_unsaved_changes;
if (Slic3r::GUI::ConfigWizard->new($self)->run) { if (Slic3r::GUI::ConfigWizard->new($self)->run) {
$_->() for values %Slic3r::GUI::OptionsGroup::reload_callbacks; $_->() for values %Slic3r::GUI::OptionsGroup::reload_callbacks;
$_->set_dirty(1) for values %{$self->{options_tabs}}; $_->set_dirty(1) for values %{$self->{options_tabs}};