Mark slow infill patterns as slow. #20

This commit is contained in:
Alessandro Ranellucci 2011-11-26 22:41:23 +01:00
parent 8ce2c23e52
commit 7a5af293a8
2 changed files with 3 additions and 1 deletions

View File

@ -96,11 +96,13 @@ our $Options = {
label => 'Fill pattern',
type => 'select',
values => [qw(rectilinear line concentric hilbertcurve archimedeanchords octagramspiral)],
labels => [qw(rectilinear line concentric), 'hilbertcurve (slow)', 'archimedeanchords (slow)', 'octagramspiral (slow)'],
},
'solid_fill_pattern' => {
label => 'Solid fill pattern',
type => 'select',
values => [qw(rectilinear concentric hilbertcurve archimedeanchords octagramspiral)],
labels => [qw(rectilinear concentric), 'hilbertcurve (slow)', 'archimedeanchords (slow)', 'octagramspiral (slow)'],
},
'fill_density' => {
label => 'Fill density',

View File

@ -65,7 +65,7 @@ sub new {
$y_field->SetValue($value->[1]);
};
} elsif ($opt->{type} eq 'select') {
$field = Wx::Choice->new($parent, -1, Wx::wxDefaultPosition, Wx::wxDefaultSize, $opt->{values});
$field = Wx::Choice->new($parent, -1, Wx::wxDefaultPosition, Wx::wxDefaultSize, $opt->{labels} || $opt->{values});
EVT_CHOICE($parent, $field, sub { Slic3r::Config->set($opt_key, $opt->{values}[$field->GetSelection]) });
push @reload_callbacks, sub {
my $value = Slic3r::Config->get($opt_key);