Handle legacy configs
This commit is contained in:
parent
d6d796fdd4
commit
ba37a8fb79
@ -124,7 +124,6 @@ sub _handle_legacy {
|
|||||||
my ($opt_key, $value) = @_;
|
my ($opt_key, $value) = @_;
|
||||||
|
|
||||||
# handle legacy options
|
# handle legacy options
|
||||||
return () if first { $_ eq $opt_key } @Ignore;
|
|
||||||
if ($opt_key =~ /^(extrusion_width|bottom_layer_speed|first_layer_height)_ratio$/) {
|
if ($opt_key =~ /^(extrusion_width|bottom_layer_speed|first_layer_height)_ratio$/) {
|
||||||
$opt_key = $1;
|
$opt_key = $1;
|
||||||
$opt_key =~ s/^bottom_layer_speed$/first_layer_speed/;
|
$opt_key =~ s/^bottom_layer_speed$/first_layer_speed/;
|
||||||
@ -145,6 +144,12 @@ sub _handle_legacy {
|
|||||||
$opt_key = 'seam_position';
|
$opt_key = 'seam_position';
|
||||||
$value = 'random';
|
$value = 'random';
|
||||||
}
|
}
|
||||||
|
if ($opt_key eq 'bed_size' && $value) {
|
||||||
|
$opt_key = 'bed_shape';
|
||||||
|
my ($x, $y) = split /,/, $value;
|
||||||
|
$value = "0x0,${x}x0,${x}x${y},0x${y}";
|
||||||
|
}
|
||||||
|
return () if first { $_ eq $opt_key } @Ignore;
|
||||||
|
|
||||||
# For historical reasons, the world's full of configs having these very low values;
|
# For historical reasons, the world's full of configs having these very low values;
|
||||||
# to avoid unexpected behavior we need to ignore them. Banning these two hard-coded
|
# to avoid unexpected behavior we need to ignore them. Banning these two hard-coded
|
||||||
|
@ -112,6 +112,11 @@ sub OnInit {
|
|||||||
. "your support material settings to the factory defaults and start from "
|
. "your support material settings to the factory defaults and start from "
|
||||||
. "those. Enjoy and provide feedback!", "Support Material");
|
. "those. Enjoy and provide feedback!", "Support Material");
|
||||||
}
|
}
|
||||||
|
if (!defined $last_version || $last_version =~ /^(?:0|1\.[01])\./) {
|
||||||
|
show_info($self->{mainframe}, "Hello! In this version a new Bed Shape option was "
|
||||||
|
. "added. If the bed placement in the plater preview screen looks wrong, go "
|
||||||
|
. "to Print Settings and click the \"Set\" button next to \"Bed Shape\".", "Bed Shape");
|
||||||
|
}
|
||||||
}
|
}
|
||||||
$self->{mainframe}->config_wizard if $run_wizard;
|
$self->{mainframe}->config_wizard if $run_wizard;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user