mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-11-02 20:51:23 -07:00
Add initial configuration wizard
This commit is contained in:
Henrik Brix Andersen
parent
a4de0e659d
commit
de3347c825
3 changed files with 371 additions and 0 deletions
|
|
@ -4,6 +4,7 @@ use warnings;
|
|||
use utf8;
|
||||
|
||||
use FindBin;
|
||||
use Slic3r::GUI::ConfigWizard;
|
||||
use Slic3r::GUI::Plater;
|
||||
use Slic3r::GUI::OptionsGroup;
|
||||
use Slic3r::GUI::SkeinPanel;
|
||||
|
|
@ -83,7 +84,9 @@ sub OnInit {
|
|||
# Help menu
|
||||
my $helpMenu = Wx::Menu->new;
|
||||
{
|
||||
$helpMenu->Append(7, "Configuration Wizard…");
|
||||
$helpMenu->Append(wxID_ABOUT, "&About Slic3r");
|
||||
EVT_MENU($frame, 7, sub { $frame->{skeinpanel}->config_wizard });
|
||||
EVT_MENU($frame, wxID_ABOUT, \&about);
|
||||
}
|
||||
|
||||
|
|
|
|||
359
lib/Slic3r/GUI/ConfigWizard.pm
Normal file
359
lib/Slic3r/GUI/ConfigWizard.pm
Normal file
|
|
@ -0,0 +1,359 @@
|
|||
package Slic3r::GUI::ConfigWizard;
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use base 'Wx::Wizard';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
# TODO: Add instructional bitmaps
|
||||
my $self = $class->SUPER::new($parent, -1, 'Configuration Wizard',
|
||||
Wx::Bitmap->new("$Slic3r::var/slic3r_128px.png", &Wx::wxBITMAP_TYPE_PNG));
|
||||
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Welcome->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Firmware->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Bed->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Cooling->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Filament->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Temperature->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::BedTemperature->new($self));
|
||||
$self->add_page(Slic3r::GUI::ConfigWizard::Page::Finished->new($self));
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub add_page {
|
||||
my $self = shift;
|
||||
my ($page) = @_;
|
||||
|
||||
my $n = push @{$self->{pages}}, $page;
|
||||
# add first page to the page area sizer
|
||||
$self->GetPageAreaSizer->Add($page) if $n == 1;
|
||||
# link pages
|
||||
$self->{pages}[$n-2]->set_next_page($page) if $n >= 2;
|
||||
$page->set_previous_page($self->{pages}[$n-2]) if $n >= 2;
|
||||
}
|
||||
|
||||
sub run {
|
||||
my $self = shift;
|
||||
|
||||
my $finished = Wx::Wizard::RunWizard($self, $self->{pages}[0]);
|
||||
if ($finished) {
|
||||
$_->apply for @{$self->{pages}};
|
||||
}
|
||||
$self->Destroy;
|
||||
|
||||
return $finished;
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Option;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw(EVT_SPINCTRL EVT_TEXT EVT_CHECKBOX EVT_COMBOBOX);
|
||||
use base 'Wx::StaticBoxSizer';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent, %params) = @_;
|
||||
my $box = Wx::StaticBox->new($parent, -1, '');
|
||||
my $self = $class->SUPER::new($box, &Wx::wxHORIZONTAL);
|
||||
|
||||
my $label_width = 200;
|
||||
|
||||
my $opt_key = $params{option};
|
||||
my $opt = $Slic3r::Config::Options->{$opt_key};
|
||||
|
||||
my $callback = $params{callback} || sub {};
|
||||
|
||||
# label
|
||||
my $label = Wx::StaticText->new($parent, -1, "$opt->{label}:", &Wx::wxDefaultPosition, [$label_width, -1]);
|
||||
$label->Wrap($label_width);
|
||||
$self->Add($label, 1, &Wx::wxEXPAND);
|
||||
|
||||
# input field(s) and unit
|
||||
my $field;
|
||||
if ($opt->{type} =~ /^(i|f|s|s@)$/) {
|
||||
my $style = $opt->{multiline} ? &Wx::wxTE_MULTILINE : 0;
|
||||
my $size = Wx::Size->new($opt->{width} || -1, $opt->{height} || -1);
|
||||
|
||||
my ($get, $set) = $opt->{type} eq 's@' ? qw(serialize deserialize) : qw(get_raw set);
|
||||
|
||||
if ($opt->{type} eq 'i') {
|
||||
my $value = Slic3r::Config->$get($opt_key);
|
||||
$field = Wx::SpinCtrl->new($parent, -1, $value, &Wx::wxDefaultPosition, $size, $style, $opt->{min} || 0, $opt->{max} || 100, $value);
|
||||
EVT_SPINCTRL($parent, $field, sub { $callback->($opt_key, $field->GetValue) });
|
||||
} else {
|
||||
$field = Wx::TextCtrl->new($parent, -1, Slic3r::Config->$get($opt_key), Wx::wxDefaultPosition, $size, $style);
|
||||
EVT_TEXT($parent, $field, sub { $callback->($opt_key, $field->GetValue) });
|
||||
}
|
||||
} elsif ($opt->{type} eq 'bool') {
|
||||
$field = Wx::CheckBox->new($parent, -1, '');
|
||||
$field->SetValue(Slic3r::Config->get_raw($opt_key));
|
||||
EVT_CHECKBOX($parent, $field, sub { $callback->($opt_key, $field->GetValue) });
|
||||
} elsif ($opt->{type} eq 'point') {
|
||||
$field = Wx::BoxSizer->new(&Wx::wxHORIZONTAL);
|
||||
my $field_size = Wx::Size->new(40, -1);
|
||||
my $value = Slic3r::Config->get_raw($opt_key);
|
||||
my @items = (
|
||||
Wx::StaticText->new($parent, -1, 'x:'),
|
||||
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, $value->[1], &Wx::wxDefaultPosition, $field_size),
|
||||
);
|
||||
$field->Add($_) for @items;
|
||||
EVT_TEXT($parent, $x_field, sub { $callback->($opt_key, [$x_field->GetValue, $y_field->GetValue]) });
|
||||
EVT_TEXT($parent, $y_field, sub { $callback->($opt_key, [$x_field->GetValue, $y_field->GetValue]) });
|
||||
} elsif ($opt->{type} eq 'select') {
|
||||
$field = Wx::ComboBox->new($parent, -1, '', &Wx::wxDefaultPosition, &Wx::wxDefaultSize, $opt->{labels} || $opt->{values}, &Wx::wxCB_READONLY);
|
||||
my $value = Slic3r::Config->get_raw($opt_key);
|
||||
$field->SetSelection(grep $opt->{values}[$_] eq $value, 0..$#{$opt->{values}});
|
||||
EVT_COMBOBOX($parent, $field, sub { $callback->($opt_key, $opt->{values}[$field->GetSelection]) });
|
||||
} else {
|
||||
die 'Unsupported option type: ' . $opt->{type};
|
||||
}
|
||||
if ($opt->{sidetext}) {
|
||||
my $sizer = Wx::BoxSizer->new(&Wx::wxHORIZONTAL);
|
||||
$sizer->Add($field);
|
||||
my $sidetext = Wx::StaticText->new($parent, -1, $opt->{sidetext}, &Wx::wxDefaultPosition, [-1, -1]);
|
||||
$sizer->Add($sidetext, 0, &Wx::wxLEFT | &Wx::wxALIGN_CENTER_VERTICAL, 4);
|
||||
$self->Add($sizer);
|
||||
} else {
|
||||
$self->Add($field, 0, $opt->{full_width} ? &Wx::wxEXPAND : 0);
|
||||
}
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Wx::WizardPage';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent, $title) = @_;
|
||||
my $self = $class->SUPER::new($parent);
|
||||
|
||||
$self->{width} = 400;
|
||||
$self->{vsizer} = Wx::BoxSizer->new(&Wx::wxVERTICAL);
|
||||
$self->SetSizer($self->{vsizer});
|
||||
|
||||
# title
|
||||
my $text = Wx::StaticText->new($self, -1, $title, &Wx::wxDefaultPosition, &Wx::wxDefaultSize, &Wx::wxALIGN_LEFT);
|
||||
my $bold_font = Wx::SystemSettings::GetFont(&Wx::wxSYS_DEFAULT_GUI_FONT);
|
||||
$bold_font->SetWeight(&Wx::wxFONTWEIGHT_BOLD);
|
||||
$bold_font->SetPointSize(14);
|
||||
$text->SetFont($bold_font);
|
||||
$self->{vsizer}->Add($text, 0, &Wx::wxALIGN_LEFT | &Wx::wxALL, 10);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub append_text {
|
||||
my $self = shift;
|
||||
my ($text) = @_;
|
||||
|
||||
my $para = Wx::StaticText->new($self, -1, $text, &Wx::wxDefaultPosition, &Wx::wxDefaultSize, &Wx::wxALIGN_LEFT);
|
||||
$para->Wrap($self->{width});
|
||||
$self->{vsizer}->Add($para, 0, &Wx::wxALIGN_LEFT | &Wx::wxALL, 10);
|
||||
}
|
||||
|
||||
sub append_option {
|
||||
my $self = shift;
|
||||
my ($opt_key) = @_;
|
||||
|
||||
my $option = Slic3r::GUI::ConfigWizard::Option->new($self, option => $opt_key,
|
||||
callback => sub {
|
||||
my ($opt_key, $value) = @_;
|
||||
$self->{options}->{$opt_key} = $value;
|
||||
});
|
||||
$self->{vsizer}->Add($option, 0, &Wx::wxEXPAND | &Wx::wxALL, 10);
|
||||
}
|
||||
|
||||
sub apply {
|
||||
my $self = shift;
|
||||
Slic3r::Config->set($_, $self->{options}->{$_}) foreach (keys %{$self->{options}});
|
||||
}
|
||||
|
||||
sub set_previous_page {
|
||||
my $self = shift;
|
||||
my ($previous_page) = @_;
|
||||
$self->{previous_page} = $previous_page;
|
||||
}
|
||||
|
||||
sub GetPrev {
|
||||
my $self = shift;
|
||||
return $self->{previous_page};
|
||||
}
|
||||
|
||||
sub set_next_page {
|
||||
my $self = shift;
|
||||
my ($next_page) = @_;
|
||||
$self->{next_page} = $next_page;
|
||||
}
|
||||
|
||||
sub GetNext {
|
||||
my $self = shift;
|
||||
return $self->{next_page};
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Welcome;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Welcome');
|
||||
|
||||
$self->append_text('This configuration wizard will guide you through the most important settings of Slic3r in a few easy steps. ' .
|
||||
'Configuration will be based on your current configuration.');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Firmware;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Firmware Type');
|
||||
|
||||
$self->append_text('Choose the type of firmware used by your printer below.');
|
||||
$self->append_option('gcode_flavor');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Bed;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Bed Size');
|
||||
|
||||
$self->append_text('Enter the size of your printers bed below.');
|
||||
$self->append_option('bed_size');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub apply {
|
||||
my $self = shift;
|
||||
$self->SUPER::apply;
|
||||
|
||||
# set print_center to centre of bed_size
|
||||
my $bed_size = Slic3r::Config->get_raw('bed_size');
|
||||
Slic3r::Config->set('print_center', [$bed_size->[0]/2, $bed_size->[1]/2]);
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Cooling;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Fan');
|
||||
|
||||
$self->append_text('If your printer has a fan for cooling the printed object, check the box below.');
|
||||
$self->append_option('cooling');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Filament;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Filament Diameter');
|
||||
|
||||
$self->append_text('Enter your filament diameter below. ' .
|
||||
'Good precision is required, so use a caliper and do multiple measurements along the filament, then compute the average.');
|
||||
$self->append_option('filament_diameter');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Temperature;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Extrusion Temperature');
|
||||
|
||||
$self->append_text('Enter the temperature needed for extruding your filament below. ' .
|
||||
'A rule of thumb is 160 to 230 °C for PLA and 215 to 250 °C for ABS. ');
|
||||
$self->append_option('temperature');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub apply {
|
||||
my $self = shift;
|
||||
$self->SUPER::apply;
|
||||
|
||||
# set first_layer_temperature to temperature + 5
|
||||
my $temperature = Slic3r::Config->get_raw('temperature');
|
||||
Slic3r::Config->set('first_layer_temperature', $temperature + 5);
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::BedTemperature;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Bed Temperature');
|
||||
|
||||
$self->append_text('Enter the bed temperature needed for getting your filament to stick to your heated bed below. ' .
|
||||
'A rule of thumb is 60 °C for PLA and 110 °C for ABS.');
|
||||
$self->append_option('bed_temperature');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub apply {
|
||||
my $self = shift;
|
||||
$self->SUPER::apply;
|
||||
|
||||
# set first_layer_bed_temperature to temperature + 5
|
||||
my $temperature = Slic3r::Config->get_raw('bed_temperature');
|
||||
Slic3r::Config->set('first_layer_bed_temperature', $temperature + 5);
|
||||
}
|
||||
|
||||
package Slic3r::GUI::ConfigWizard::Page::Finished;
|
||||
use Wx qw(:sizer :progressdialog);
|
||||
use Wx::Event qw();
|
||||
use base 'Slic3r::GUI::ConfigWizard::Page';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my ($parent) = @_;
|
||||
my $self = $class->SUPER::new($parent, 'Congratulations!');
|
||||
|
||||
$self->append_text('Slic3r is now configured for your particular printer and filament.');
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
@ -223,6 +223,15 @@ sub load_config {
|
|||
$dlg->Destroy;
|
||||
}
|
||||
|
||||
sub config_wizard {
|
||||
my $self = shift;
|
||||
|
||||
if (Slic3r::GUI::ConfigWizard->new($self)->run) {
|
||||
$_->() for values %Slic3r::GUI::OptionsGroup::reload_callbacks;
|
||||
$_->set_dirty(1) for values %{$self->{options_tabs}};
|
||||
}
|
||||
}
|
||||
|
||||
sub on_close {
|
||||
my $self = shift;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue