From 7a5af293a8d44c2a38a4530960629bd45fc1f61a Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sat, 26 Nov 2011 22:41:23 +0100
Subject: [PATCH] Mark slow infill patterns as slow. #20

---
 lib/Slic3r/Config.pm           | 2 ++
 lib/Slic3r/GUI/OptionsGroup.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Slic3r/Config.pm b/lib/Slic3r/Config.pm
index 67ebf1610..05c6b4994 100644
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@@ -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',
diff --git a/lib/Slic3r/GUI/OptionsGroup.pm b/lib/Slic3r/GUI/OptionsGroup.pm
index 877aaae7e..f6c4acde0 100644
--- a/lib/Slic3r/GUI/OptionsGroup.pm
+++ b/lib/Slic3r/GUI/OptionsGroup.pm
@@ -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);