From 19a78de82fae6d1264b93da405ce134b134948c4 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 18 Jun 2012 10:28:53 +0200
Subject: [PATCH] Enlarge the Output filename format field

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

diff --git a/lib/Slic3r/Config.pm b/lib/Slic3r/Config.pm
index 988ab7e6..2a413b5f 100644
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@@ -33,6 +33,7 @@ our $Options = {
         label   => 'Output filename format',
         cli     => 'output-filename-format=s',
         type    => 's',
+        width   => 300,
     },
 
     # printer options
diff --git a/lib/Slic3r/GUI/OptionsGroup.pm b/lib/Slic3r/GUI/OptionsGroup.pm
index 97c6ffee..a2398e8d 100644
--- a/lib/Slic3r/GUI/OptionsGroup.pm
+++ b/lib/Slic3r/GUI/OptionsGroup.pm
@@ -42,12 +42,8 @@ sub new {
         my $field;
         if ($opt->{type} =~ /^(i|f|s|s@)$/) {
             my $style = 0;
-            my $size = Wx::wxDefaultSize;
-            
-            if ($opt->{multiline}) {
-                $style = &Wx::wxTE_MULTILINE;
-                $size = Wx::Size->new($opt->{width} || -1, $opt->{height} || -1);
-            }
+            $style = &Wx::wxTE_MULTILINE if $opt->{multiline};
+            my $size = Wx::Size->new($opt->{width} || -1, $opt->{height} || -1);
             
             my ($get, $set) = $opt->{type} eq 's@' ? qw(serialize deserialize) : qw(get set);