3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-21 21:58:03 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

Save and load configurations

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-10-05 18:13:47 +02:00
parent 92dec2db2a
commit a1d518f1a2
5 changed files with 288 additions and 175 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lib/Slic3r/GUI/OptionsGroup.pm
View file

@ -6,6 +6,9 @@ use Wx qw(:sizer);
use Wx::Event qw(EVT_TEXT EVT_CHECKBOX);
use base 'Wx::StaticBoxSizer';
# not very elegant, but this solution is temporary waiting for a better GUI
our @reload_callbacks = ();
sub new {
my $class = shift;
my ($parent, %p) = @_;
@ -15,28 +18,43 @@ sub new {
my $grid_sizer = Wx::FlexGridSizer->new(scalar(@{$p{options}}), 2, 2, 0);
foreach my $opt (@{$p{options}}) {
foreach my $opt_key (@{$p{options}}) {
my $opt = $Slic3r::Config::Options->{$opt_key};
my $label = Wx::StaticText->new($parent, -1, "$opt->{label}:", Wx::wxDefaultPosition, [180,-1]);
$label->Wrap(180); # needed to avoid Linux/GTK bug
my $field;
if ($opt->{type} =~ /^(i|f)$/) {
$field = Wx::TextCtrl->new($parent, -1, ${$opt->{value}});
EVT_TEXT($parent, $field, sub { ${$opt->{value}} = $field->GetValue });
$field = Wx::TextCtrl->new($parent, -1, Slic3r::Config->get($opt_key));
EVT_TEXT($parent, $field, sub { Slic3r::Config->set($opt_key, $field->GetValue) });
push @reload_callbacks, sub { $field->SetValue(Slic3r::Config->get($opt_key)) };
} elsif ($opt->{type} eq 'bool') {
$field = Wx::CheckBox->new($parent, -1, "");
$field->SetValue(${$opt->{value}});
EVT_TEXT($parent, $field, sub { ${$opt->{value}} = $field->GetValue });
$field->SetValue(Slic3r::Config->get($opt_key));
EVT_CHECKBOX($parent, $field, sub { Slic3r::Config->set($opt_key, $field->GetValue) });
push @reload_callbacks, sub { $field->SetValue(Slic3r::Config->get($opt_key)) };
} elsif ($opt->{type} eq 'point') {
$field = Wx::BoxSizer->new(wxHORIZONTAL);
my $field_size = Wx::Size->new(40, -1);
my $value = Slic3r::Config->get($opt_key);
$field->Add($_) for (
Wx::StaticText->new($parent, -1, "x:"),
my $x_field = Wx::TextCtrl->new($parent, -1, ${$opt->{value}}->[0], Wx::wxDefaultPosition, $field_size),
my $x_field = Wx::TextCtrl->new($parent, -1, $value->[0], Wx::wxDefaultPosition, $field_size),
Wx::StaticText->new($parent, -1, " y:"),
my $y_field = Wx::TextCtrl->new($parent, -1, ${$opt->{value}}->[1], Wx::wxDefaultPosition, $field_size),
my $y_field = Wx::TextCtrl->new($parent, -1, $value->[1], Wx::wxDefaultPosition, $field_size),
);
EVT_TEXT($parent, $x_field, sub { ${$opt->{value}}->[0] = $x_field->GetValue });
EVT_TEXT($parent, $y_field, sub { ${$opt->{value}}->[1] = $y_field->GetValue });
my $set_value = sub {
my ($i, $value) = @_;
my $val = Slic3r::Config->get($opt_key);
$val->[$i] = $value;
Slic3r::Config->set($opt_key, $val);
};
EVT_TEXT($parent, $x_field, sub { $set_value->(0, $x_field->GetValue) });
EVT_TEXT($parent, $y_field, sub { $set_value->(1, $y_field->GetValue) });
push @reload_callbacks, sub {
my $value = Slic3r::Config->get($opt_key);
$x_field->SetValue($value->[0]);
$y_field->SetValue($value->[1]);
};
} else {
die "Unsupported option type: " . $opt->{type};
}