3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-14 18:27:58 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Fixed a superflous "Dirty" multi-extruder printer profile after

Browse source 
the introduction of new extruder parameters
(deretract_speed extruder_colour retract_before_wipe).
https://github.com/prusa3d/Slic3r/issues/325
This commit is contained in:
bubnikv 2017-06-06 12:52:15 +02:00
parent 3e764ada0c
commit 35acd799cf
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/Slic3r/GUI/Tab.pm
View file

@ -1841,6 +1841,7 @@ sub get_name {
package Slic3r::GUI::Tab::Preset; package Slic3r::GUI::Tab::Preset;
use Moo; use Moo;
use List::Util qw(any);
# The preset represents a "default" set of properties. # The preset represents a "default" set of properties.
has 'default' => (is => 'ro', default => sub { 0 }); has 'default' => (is => 'ro', default => sub { 0 });
@ -1865,6 +1866,17 @@ sub config {
my $external_config = Slic3r::Config->load($self->file); my $external_config = Slic3r::Config->load($self->file);
$config->set($_, $external_config->get($_)) $config->set($_, $external_config->get($_))
for grep $external_config->has($_), @$keys; 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; return $config;
} }