New --extrusion-width-ratio option. #8

This commit is contained in:
Alessandro Ranellucci 2011-11-25 10:58:13 +01:00
parent 465bef1748
commit 3c0ea0b57f
6 changed files with 38 additions and 15 deletions

View file

@ -32,7 +32,7 @@ sub new {
$size = Wx::Size->new($opt->{width} || -1, $opt->{height} || -1);
}
$field = Wx::TextCtrl->new($parent, -1, Slic3r::Config->get($opt_key),
$field = Wx::TextCtrl->new($parent, -1, Slic3r::Config->get($opt_key) || '',
Wx::wxDefaultPosition, $size, $style);
EVT_TEXT($parent, $field, sub { Slic3r::Config->set($opt_key, $field->GetValue) });
push @reload_callbacks, sub { $field->SetValue(Slic3r::Config->get($opt_key)) };

View file

@ -51,6 +51,10 @@ sub new {
title => 'Custom GCODE',
options => [qw(start_gcode end_gcode)],
},
extrusion => {
title => 'Extrusion',
options => [qw(extrusion_width_ratio)],
},
);
$self->{panels} = \%panels;
@ -73,13 +77,17 @@ sub new {
return $tab;
};
my $tab1 = $make_tab->([qw(transform accuracy skirt)], [qw(print retract)]);
my $tab2 = $make_tab->([qw(printer filament)], [qw(speed)]);
my $tab3 = $make_tab->([qw(gcode)]);
my @tabs = (
$make_tab->([qw(transform accuracy skirt)], [qw(print retract)]),
$make_tab->([qw(printer filament)], [qw(speed)]),
$make_tab->([qw(gcode)]),
$make_tab->([qw(extrusion)]),
);
$tabpanel->AddPage($tab1, "Print Settings");
$tabpanel->AddPage($tab2, "Printer and Filament");
$tabpanel->AddPage($tab3, "Start/End GCODE");
$tabpanel->AddPage($tabs[0], "Print Settings");
$tabpanel->AddPage($tabs[1], "Printer and Filament");
$tabpanel->AddPage($tabs[2], "Start/End GCODE");
$tabpanel->AddPage($tabs[3], "Advanced");
my $buttons_sizer;
{