From 35acd799cf097d1587527e02f8853e6900e9668e Mon Sep 17 00:00:00 2001
From: bubnikv <bubnikv@gmail.com>
Date: Tue, 6 Jun 2017 12:52:15 +0200
Subject: [PATCH] Fixed a superflous "Dirty" multi-extruder printer profile
 after the introduction of new extruder parameters (deretract_speed
 extruder_colour retract_before_wipe).
 https://github.com/prusa3d/Slic3r/issues/325

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

diff --git a/lib/Slic3r/GUI/Tab.pm b/lib/Slic3r/GUI/Tab.pm
index cb620fbb9..437c315c0 100644
--- a/lib/Slic3r/GUI/Tab.pm
+++ b/lib/Slic3r/GUI/Tab.pm
@@ -1841,6 +1841,7 @@ sub get_name {
 
 package Slic3r::GUI::Tab::Preset;
 use Moo;
+use List::Util qw(any);
 
 # The preset represents a "default" set of properties.
 has 'default'   => (is => 'ro', default => sub { 0 });
@@ -1865,6 +1866,17 @@ sub config {
         my $external_config = Slic3r::Config->load($self->file);
         $config->set($_, $external_config->get($_))
             for grep $external_config->has($_), @$keys;
+
+        if (any { $_ eq 'nozzle_diameter' } @$keys) {
+            # Loaded the Printer settings. Verify, that all extruder dependent values have enough values.
+            my $nozzle_diameter     = $config->nozzle_diameter;
+            my $num_extruders       = scalar(@{$nozzle_diameter});
+            foreach my $key (qw(deretract_speed extruder_colour retract_before_wipe)) {
+                my $vec = $config->get($key);
+                push @{$vec}, ($vec->[0]) x ($num_extruders - @{$vec});
+                $config->set($key, $vec);
+            }
+        }
         
         return $config;
     }