Enlarge the Output filename format field

degen-loop-screen
Alessandro Ranellucci 2012-06-18 10:28:53 +02:00
parent a59b82db06
commit 19a78de82f
2 changed files with 3 additions and 6 deletions

View File

@ -33,6 +33,7 @@ our $Options = {
label => 'Output filename format',
cli => 'output-filename-format=s',
type => 's',
width => 300,
},
# printer options

View File

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