Handle legacy configs

This commit is contained in:
Alessandro Ranellucci 2014-06-16 22:56:28 +02:00
parent d6d796fdd4
commit ba37a8fb79
2 changed files with 11 additions and 1 deletions

View File

@ -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

View File

@ -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;