PrusaSlicer-NonPlainar/lib/Slic3r/GUI/Tab.pm

735 lines
24 KiB
Perl
Raw Normal View History

2012-06-17 20:27:05 +00:00
package Slic3r::GUI::Tab;
use strict;
use warnings;
use utf8;
use File::Basename qw(basename);
2012-06-18 20:27:57 +00:00
use List::Util qw(first);
use Wx qw(:bookctrl :dialog :keycode :icon :id :misc :panel :sizer :treectrl :window);
2012-07-24 12:17:10 +00:00
use Wx::Event qw(EVT_BUTTON EVT_CHOICE EVT_KEY_DOWN EVT_TREE_SEL_CHANGED);
2012-06-18 14:46:43 +00:00
use base 'Wx::Panel';
2012-06-17 20:27:05 +00:00
sub new {
my $class = shift;
2012-07-18 18:36:34 +00:00
my ($parent, %params) = @_;
my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxBK_LEFT | wxTAB_TRAVERSAL);
$self->{options} = []; # array of option names handled by this tab
2012-06-17 20:54:08 +00:00
2012-06-19 15:23:10 +00:00
$self->{sync_presets_with} = $params{sync_presets_with};
EVT_CHOICE($parent, $self->{sync_presets_with}, sub {
$self->{presets_choice}->SetSelection($self->{sync_presets_with}->GetSelection);
$self->on_select_preset;
});
2012-06-18 20:27:57 +00:00
# horizontal sizer
2012-07-01 17:24:06 +00:00
$self->{sizer} = Wx::BoxSizer->new(wxHORIZONTAL);
2012-06-18 14:46:43 +00:00
$self->{sizer}->SetSizeHints($self);
$self->SetSizer($self->{sizer});
2012-06-18 20:27:57 +00:00
# left vertical sizer
2012-07-01 17:24:06 +00:00
my $left_sizer = Wx::BoxSizer->new(wxVERTICAL);
2012-07-15 18:05:57 +00:00
$self->{sizer}->Add($left_sizer, 0, wxEXPAND | wxLEFT | wxTOP | wxBOTTOM, 3);
2012-06-18 20:27:57 +00:00
my $left_col_width = 150;
2012-06-18 20:27:57 +00:00
# preset chooser
{
# choice menu
$self->{presets_choice} = Wx::Choice->new($self, -1, wxDefaultPosition, [$left_col_width, -1], []);
2012-06-19 15:23:10 +00:00
$self->{presets_choice}->SetFont($Slic3r::GUI::small_font);
2012-06-18 20:27:57 +00:00
# buttons
2012-07-01 17:24:06 +00:00
$self->{btn_save_preset} = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new("$Slic3r::var/disk.png", wxBITMAP_TYPE_PNG));
$self->{btn_delete_preset} = Wx::BitmapButton->new($self, -1, Wx::Bitmap->new("$Slic3r::var/delete.png", wxBITMAP_TYPE_PNG));
2012-07-18 18:36:34 +00:00
$self->{btn_save_preset}->SetToolTipString("Save current " . lc($self->title));
2012-06-18 20:27:57 +00:00
$self->{btn_delete_preset}->SetToolTipString("Delete this preset");
$self->{btn_delete_preset}->Disable;
2012-06-20 15:08:38 +00:00
### These cause GTK warnings:
###my $box = Wx::StaticBox->new($self, -1, "Presets:", wxDefaultPosition, [$left_col_width, 50]);
2012-07-01 17:24:06 +00:00
###my $hsizer = Wx::StaticBoxSizer->new($box, wxHORIZONTAL);
2012-06-20 15:08:38 +00:00
2012-07-01 17:24:06 +00:00
my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL);
2012-06-20 15:08:38 +00:00
2012-07-01 17:24:06 +00:00
$left_sizer->Add($hsizer, 0, wxEXPAND | wxBOTTOM, 5);
$hsizer->Add($self->{presets_choice}, 1, wxRIGHT | wxALIGN_CENTER_VERTICAL, 3);
$hsizer->Add($self->{btn_save_preset}, 0, wxALIGN_CENTER_VERTICAL);
$hsizer->Add($self->{btn_delete_preset}, 0, wxALIGN_CENTER_VERTICAL);
2012-06-18 20:27:57 +00:00
}
2012-06-18 14:46:43 +00:00
2012-06-18 20:27:57 +00:00
# tree
$self->{treectrl} = Wx::TreeCtrl->new($self, -1, wxDefaultPosition, [$left_col_width, -1], wxTR_NO_BUTTONS | wxTR_HIDE_ROOT | wxTR_SINGLE | wxTR_NO_LINES | wxBORDER_SUNKEN | wxWANTS_CHARS);
2012-07-01 17:24:06 +00:00
$left_sizer->Add($self->{treectrl}, 1, wxEXPAND);
2012-06-18 14:46:43 +00:00
$self->{icons} = Wx::ImageList->new(16, 16, 1);
$self->{treectrl}->AssignImageList($self->{icons});
$self->{iconcount} = -1;
$self->{treectrl}->AddRoot("root");
2012-07-18 18:36:34 +00:00
$self->{pages} = [];
2012-06-18 14:46:43 +00:00
$self->{treectrl}->SetIndent(0);
EVT_TREE_SEL_CHANGED($parent, $self->{treectrl}, sub {
2012-07-18 18:36:34 +00:00
my $page = first { $_->{title} eq $self->{treectrl}->GetItemText($self->{treectrl}->GetSelection) } @{$self->{pages}}
or return;
$_->Hide for @{$self->{pages}};
2012-07-23 22:34:57 +00:00
$page->Show;
2012-06-18 14:46:43 +00:00
$self->{sizer}->Layout;
$self->Refresh;
2012-06-18 14:46:43 +00:00
});
2012-07-24 12:17:10 +00:00
EVT_KEY_DOWN($self->{treectrl}, sub {
my ($treectrl, $event) = @_;
if ($event->GetKeyCode == WXK_TAB) {
2012-07-24 12:17:10 +00:00
$treectrl->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward);
} else {
$event->Skip;
}
});
2012-06-17 20:54:08 +00:00
2012-06-18 20:27:57 +00:00
EVT_CHOICE($parent, $self->{presets_choice}, sub {
2012-06-19 15:23:10 +00:00
$self->on_select_preset;
$self->sync_presets;
2012-06-18 20:27:57 +00:00
});
EVT_BUTTON($self, $self->{btn_save_preset}, sub {
2012-07-15 15:54:57 +00:00
my $preset = $self->current_preset;
my $default_name = $preset->{default} ? 'Untitled' : basename($preset->{name});
2012-07-15 16:37:00 +00:00
$default_name =~ s/\.ini$//i;
2012-06-18 20:27:57 +00:00
my $dlg = Slic3r::GUI::SavePresetWindow->new($self,
2012-07-18 18:36:34 +00:00
title => lc($self->title),
2012-07-15 15:54:57 +00:00
default => $default_name,
2012-07-15 16:37:00 +00:00
values => [ map { my $name = $_->{name}; $name =~ s/\.ini$//i; $name } @{$self->{presets}} ],
2012-06-18 20:27:57 +00:00
);
2012-07-01 17:24:06 +00:00
return unless $dlg->ShowModal == wxID_OK;
2012-06-18 20:27:57 +00:00
my $file = sprintf "$Slic3r::GUI::datadir/%s/%s.ini", $self->name, $dlg->get_name;
$self->{config}->save($file);
2012-06-18 20:27:57 +00:00
$self->set_dirty(0);
$self->load_presets;
2012-07-15 16:37:00 +00:00
$self->{presets_choice}->SetSelection(first { basename($self->{presets}[$_]{file}) eq $dlg->get_name . ".ini" } 1 .. $#{$self->{presets}});
2012-06-19 16:11:51 +00:00
$self->on_select_preset;
2012-06-19 15:23:10 +00:00
$self->sync_presets;
2012-06-18 20:27:57 +00:00
});
2012-06-19 15:47:48 +00:00
EVT_BUTTON($self, $self->{btn_delete_preset}, sub {
my $i = $self->{presets_choice}->GetSelection;
return if $i == 0; # this shouldn't happen but let's trap it anyway
2012-07-01 17:24:06 +00:00
my $res = Wx::MessageDialog->new($self, "Are you sure you want to delete the selected preset?", 'Delete Preset', wxYES_NO | wxNO_DEFAULT | wxICON_QUESTION)->ShowModal;
return unless $res == wxID_YES;
if (-e $self->{presets}[$i]{file}) {
unlink $self->{presets}[$i]{file};
2012-06-19 15:47:48 +00:00
}
splice @{$self->{presets}}, $i, 1;
2012-07-27 11:56:52 +00:00
$self->set_dirty(0);
2012-06-19 15:47:48 +00:00
$self->{presets_choice}->Delete($i);
$self->{presets_choice}->SetSelection(0);
$self->on_select_preset;
$self->sync_presets;
});
$self->{config} = Slic3r::Config->new;
2012-07-18 18:36:34 +00:00
$self->build;
if ($self->hidden_options) {
$self->{config}->apply(Slic3r::Config->new_from_defaults($self->hidden_options));
push @{$self->{options}}, $self->hidden_options;
}
$self->load_presets;
2012-07-18 18:36:34 +00:00
2012-06-17 20:27:05 +00:00
return $self;
}
2012-07-15 15:54:57 +00:00
sub current_preset {
my $self = shift;
return $self->{presets}[ $self->{presets_choice}->GetSelection ];
}
# propagate event to the parent
sub on_value_change {
my $self = shift;
$self->{on_value_change}->(@_) if $self->{on_value_change};
}
2012-07-18 18:36:34 +00:00
sub on_preset_loaded {}
sub hidden_options {}
sub config { $_[0]->{config}->clone }
2012-07-18 18:36:34 +00:00
sub select_default_preset {
my $self = shift;
$self->{presets_choice}->SetSelection(0);
}
2012-06-19 15:23:10 +00:00
sub on_select_preset {
my $self = shift;
if (defined $self->{dirty}) {
my $name = $self->{dirty} == 0 ? 'Default preset' : "Preset \"$self->{presets}[$self->{dirty}]{name}\"";
my $confirm = Wx::MessageDialog->new($self, "$name has unsaved changes. Discard changes and continue anyway?",
'Unsaved Changes', wxYES_NO | wxNO_DEFAULT | wxICON_QUESTION);
if ($confirm->ShowModal == wxID_NO) {
$self->{presets_choice}->SetSelection($self->{dirty});
return;
}
2012-06-19 15:23:10 +00:00
$self->set_dirty(0);
}
2012-07-15 15:54:57 +00:00
my $preset = $self->current_preset;
if ($preset->{default}) {
# default settings: disable the delete button
$self->{config}->apply(Slic3r::Config->new_from_defaults(@{$self->{options}}));
2012-06-19 15:23:10 +00:00
$self->{btn_delete_preset}->Disable;
} else {
2012-07-15 15:54:57 +00:00
if (!-e $preset->{file}) {
Slic3r::GUI::show_error($self, "The selected preset does not exist anymore ($preset->{file}).");
2012-06-19 15:23:10 +00:00
return;
}
2012-07-15 15:54:57 +00:00
eval {
local $SIG{__WARN__} = Slic3r::GUI::warning_catcher($self);
my $external_config = Slic3r::Config->load($preset->{file});
foreach my $opt_key (@{$self->{options}}) {
$self->{config}->set($opt_key, $external_config->get($opt_key));
}
2012-07-15 15:54:57 +00:00
};
Slic3r::GUI::catch_error($self);
$preset->{external}
? $self->{btn_delete_preset}->Disable
: $self->{btn_delete_preset}->Enable;
2012-06-19 15:23:10 +00:00
}
2012-07-18 18:36:34 +00:00
$self->on_preset_loaded;
$self->reload_values;
2012-06-19 15:23:10 +00:00
$self->set_dirty(0);
$Slic3r::GUI::Settings->{presets}{$self->name} = $preset->{file} ? basename($preset->{file}) : '';
2012-07-28 09:53:10 +00:00
Slic3r::GUI->save_settings;
2012-06-19 15:23:10 +00:00
}
2012-06-18 20:27:57 +00:00
sub add_options_page {
2012-06-17 20:27:05 +00:00
my $self = shift;
2012-07-18 18:36:34 +00:00
my ($title, $icon, %params) = @_;
2012-06-17 20:54:08 +00:00
2012-07-18 18:36:34 +00:00
if ($icon) {
my $bitmap = Wx::Bitmap->new("$Slic3r::var/$icon", wxBITMAP_TYPE_PNG);
2012-06-18 14:46:43 +00:00
$self->{icons}->Add($bitmap);
$self->{iconcount}++;
2012-06-17 20:54:08 +00:00
}
2012-07-18 18:36:34 +00:00
{
# get all config options being added to the current page; remove indexes; associate defaults
my @options = map { $_ =~ s/#.+//; $_ } grep !ref($_), map @{$_->{options}}, @{$params{optgroups}};
my %defaults_to_set = map { $_ => 1 } @options;
# apply default values for the options we don't have already
delete $defaults_to_set{$_} for @{$self->{options}};
$self->{config}->apply(Slic3r::Config->new_from_defaults(keys %defaults_to_set)) if %defaults_to_set;
# append such options to our list
push @{$self->{options}}, @options;
}
2012-07-18 18:36:34 +00:00
my $page = Slic3r::GUI::Tab::Page->new($self, $title, $self->{iconcount}, %params, on_change => sub {
$self->on_value_change(@_);
$self->set_dirty(1);
$self->sync_presets;
});
2012-06-18 14:46:43 +00:00
$page->Hide;
$self->{sizer}->Add($page, 1, wxEXPAND | wxLEFT, 5);
2012-07-18 18:36:34 +00:00
push @{$self->{pages}}, $page;
$self->update_tree;
return $page;
}
sub set_value {
my $self = shift;
my ($opt_key, $value) = @_;
my $changed = 0;
foreach my $page (@{$self->{pages}}) {
$changed = 1 if $page->set_value($opt_key, $value);
}
return $changed;
}
sub reload_values {
my $self = shift;
$self->set_value($_, $self->{config}->get($_)) for keys %{$self->{config}};
}
2012-07-18 18:36:34 +00:00
sub update_tree {
my $self = shift;
my ($select) = @_;
$select //= 0; #/
my $rootItem = $self->{treectrl}->GetRootItem;
$self->{treectrl}->DeleteChildren($rootItem);
foreach my $page (@{$self->{pages}}) {
my $itemId = $self->{treectrl}->AppendItem($rootItem, $page->{title}, $page->{iconID});
$self->{treectrl}->SelectItem($itemId) if $self->{treectrl}->GetChildrenCount($rootItem) == $select + 1;
2012-06-18 20:27:57 +00:00
}
2012-06-17 20:27:05 +00:00
}
2012-06-18 20:27:57 +00:00
sub set_dirty {
my $self = shift;
my ($dirty) = @_;
my $selection = $self->{presets_choice}->GetSelection;
my $i = $self->{dirty} // $selection; #/
2012-06-18 20:27:57 +00:00
my $text = $self->{presets_choice}->GetString($i);
2012-07-15 15:54:57 +00:00
2012-06-18 20:27:57 +00:00
if ($dirty) {
$self->{dirty} = $i;
if ($text !~ / \(modified\)$/) {
$self->{presets_choice}->SetString($i, "$text (modified)");
$self->{presets_choice}->SetSelection($selection); # http://trac.wxwidgets.org/ticket/13769
2012-06-18 20:27:57 +00:00
}
} else {
$self->{dirty} = undef;
$text =~ s/ \(modified\)$//;
$self->{presets_choice}->SetString($i, $text);
$self->{presets_choice}->SetSelection($selection); # http://trac.wxwidgets.org/ticket/13769
2012-06-18 20:27:57 +00:00
}
2012-06-19 15:23:10 +00:00
$self->sync_presets;
2012-06-18 20:27:57 +00:00
}
2012-06-23 15:38:19 +00:00
sub is_dirty {
my $self = shift;
2012-06-30 20:34:13 +00:00
return (defined $self->{dirty});
2012-06-23 15:38:19 +00:00
}
2012-06-18 20:27:57 +00:00
sub load_presets {
my $self = shift;
2012-07-15 15:54:57 +00:00
$self->{presets} = [{
default => 1,
name => '- default -',
}];
2012-06-18 20:27:57 +00:00
opendir my $dh, "$Slic3r::GUI::datadir/" . $self->name or die "Failed to read directory $Slic3r::GUI::datadir/" . $self->name . " (errno: $!)\n";
2012-07-15 15:54:57 +00:00
foreach my $file (sort grep /\.ini$/i, readdir $dh) {
my $name = basename($file);
$name =~ s/\.ini$//;
push @{$self->{presets}}, {
file => "$Slic3r::GUI::datadir/" . $self->name . "/$file",
2012-07-15 15:54:57 +00:00
name => $name,
};
}
2012-06-18 20:27:57 +00:00
closedir $dh;
$self->{presets_choice}->Clear;
2012-07-15 15:54:57 +00:00
$self->{presets_choice}->Append($_->{name}) for @{$self->{presets}};
2012-06-19 16:11:51 +00:00
{
2012-07-15 15:54:57 +00:00
# load last used preset
my $i = first { basename($self->{presets}[$_]{file}) eq ($Slic3r::GUI::Settings->{presets}{$self->name} || '') } 1 .. $#{$self->{presets}};
2012-07-15 15:54:57 +00:00
$self->{presets_choice}->SetSelection($i || 0);
2012-06-20 15:17:07 +00:00
$self->on_select_preset;
2012-06-19 16:11:51 +00:00
}
2012-06-19 15:23:10 +00:00
$self->sync_presets;
2012-06-18 20:27:57 +00:00
}
2012-06-17 20:27:05 +00:00
2012-07-18 18:36:34 +00:00
sub load_external_config {
my $self = shift;
my ($file) = @_;
# look for the loaded config among the existing menu items
2012-07-15 15:54:57 +00:00
my $i = first { $self->{presets}[$_]{file} eq $file && $self->{presets}[$_]{external} } 1..$#{$self->{presets}};
if (!$i) {
2012-07-15 15:54:57 +00:00
my $preset_name = basename($file); # keep the .ini suffix
push @{$self->{presets}}, {
file => $file,
name => $preset_name,
external => 1,
};
$self->{presets_choice}->Append($preset_name);
$i = $#{$self->{presets}};
}
2012-07-15 15:54:57 +00:00
$self->{presets_choice}->SetSelection($i);
$self->on_select_preset;
2012-06-19 15:23:10 +00:00
$self->sync_presets;
}
sub sync_presets {
my $self = shift;
return unless $self->{sync_presets_with};
$self->{sync_presets_with}->Clear;
foreach my $item ($self->{presets_choice}->GetStrings) {
$self->{sync_presets_with}->Append($item);
}
$self->{sync_presets_with}->SetSelection($self->{presets_choice}->GetSelection);
}
2012-06-18 20:27:57 +00:00
package Slic3r::GUI::Tab::Print;
2012-06-17 20:27:05 +00:00
use base 'Slic3r::GUI::Tab';
sub name { 'print' }
2012-07-18 18:36:34 +00:00
sub title { 'Print Settings' }
sub build {
my $self = shift;
2012-06-17 20:27:05 +00:00
2012-06-18 20:27:57 +00:00
$self->add_options_page('Layers and perimeters', 'layers.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Layer height',
options => [qw(layer_height first_layer_height)],
},
{
title => 'Vertical shells',
options => [qw(perimeters randomize_start extra_perimeters)],
2012-06-17 20:27:05 +00:00
},
{
title => 'Horizontal shells',
options => [qw(solid_layers)],
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Infill', 'shading.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Infill',
options => [qw(fill_density fill_angle fill_pattern solid_fill_pattern infill_every_layers)],
2012-06-17 20:27:05 +00:00
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Speed', 'time.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Speed for print moves',
options => [qw(perimeter_speed small_perimeter_speed external_perimeter_speed infill_speed solid_infill_speed top_solid_infill_speed bridge_speed)],
2012-06-17 20:27:05 +00:00
},
{
title => 'Speed for non-print moves',
options => [qw(travel_speed)],
},
{
title => 'Modifiers',
2012-06-17 20:27:05 +00:00
options => [qw(first_layer_speed)],
},
]);
$self->add_options_page('Skirt and brim', 'box.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Skirt',
options => [qw(skirts skirt_distance skirt_height)],
},
{
title => 'Brim',
options => [qw(brim_width)],
},
2012-06-17 20:27:05 +00:00
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Support material', 'building.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Support material',
options => [qw(support_material support_material_threshold support_material_pattern support_material_spacing support_material_angle)],
2012-06-17 20:27:05 +00:00
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Notes', 'note.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Notes',
2012-06-17 21:24:10 +00:00
no_labels => 1,
2012-06-17 20:27:05 +00:00
options => [qw(notes)],
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Output options', 'page_white_go.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Sequential printing',
options => [qw(complete_objects extruder_clearance_radius extruder_clearance_height)],
},
{
title => 'Output file',
options => [qw(gcode_comments output_filename_format)],
},
{
2012-06-17 21:24:10 +00:00
title => 'Post-processing scripts',
no_labels => 1,
2012-06-18 09:26:21 +00:00
options => [qw(post_process)],
2012-06-17 20:27:05 +00:00
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Advanced', 'wrench.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Extrusion width',
label_width => 180,
options => [qw(extrusion_width first_layer_extrusion_width perimeter_extrusion_width infill_extrusion_width support_material_extrusion_width)],
2012-06-17 20:27:05 +00:00
},
{
title => 'Flow',
options => [qw(bridge_flow_ratio)],
},
2012-06-18 09:26:21 +00:00
{
title => 'Other',
options => [($Slic3r::have_threads ? qw(threads) : ())],
2012-06-18 09:26:21 +00:00
},
2012-06-17 20:27:05 +00:00
]);
}
sub hidden_options { !$Slic3r::have_threads ? qw(threads) : () }
package Slic3r::GUI::Tab::Filament;
use base 'Slic3r::GUI::Tab';
sub name { 'filament' }
2012-07-18 18:36:34 +00:00
sub title { 'Filament Settings' }
sub build {
my $self = shift;
2012-06-18 20:27:57 +00:00
$self->add_options_page('Filament', 'spool.png', optgroups => [
{
title => 'Filament',
options => ['filament_diameter#0', 'extrusion_multiplier#0'],
},
{
title => 'Temperature',
options => ['temperature#0', 'first_layer_temperature#0', qw(bed_temperature first_layer_bed_temperature)],
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Cooling', 'hourglass.png', optgroups => [
{
title => 'Enable',
options => [qw(cooling)],
},
{
title => 'Fan settings',
options => [qw(min_fan_speed max_fan_speed bridge_fan_speed disable_fan_first_layers fan_always_on)],
},
{
title => 'Cooling thresholds',
label_width => 250,
options => [qw(fan_below_layer_time slowdown_below_layer_time min_print_speed)],
},
]);
}
2012-06-17 20:27:05 +00:00
package Slic3r::GUI::Tab::Printer;
use base 'Slic3r::GUI::Tab';
sub name { 'printer' }
2012-07-18 18:36:34 +00:00
sub title { 'Printer Settings' }
sub build {
my $self = shift;
2012-06-17 20:27:05 +00:00
$self->{extruders_count} = 1;
2012-06-18 20:27:57 +00:00
$self->add_options_page('General', 'printer_empty.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
title => 'Size and coordinates',
options => [qw(bed_size print_center z_offset)],
},
{
title => 'Firmware',
options => [qw(gcode_flavor use_relative_e_distances)],
},
{
2012-07-18 18:36:34 +00:00
title => 'Capabilities',
options => [
{
opt_key => 'extruders_count',
label => 'Extruders',
tooltip => 'Number of extruders of the printer.',
type => 'i',
min => 1,
default => 1,
on_change => sub { $self->{extruders_count} = $_[0] },
},
],
2012-06-17 20:27:05 +00:00
},
]);
2012-06-18 20:27:57 +00:00
$self->add_options_page('Custom G-code', 'cog.png', optgroups => [
2012-06-17 20:27:05 +00:00
{
2012-06-17 21:24:10 +00:00
title => 'Start G-code',
no_labels => 1,
options => [qw(start_gcode)],
},
{
title => 'End G-code',
no_labels => 1,
options => [qw(end_gcode)],
},
{
title => 'Layer change G-code',
no_labels => 1,
options => [qw(layer_gcode)],
2012-06-17 20:27:05 +00:00
},
]);
2012-07-18 18:36:34 +00:00
$self->{extruder_pages} = [];
$self->_build_extruder_pages;
2012-07-18 18:36:34 +00:00
}
sub _extruder_options { qw(nozzle_diameter) }
2012-07-18 18:36:34 +00:00
sub config {
my $self = shift;
my $config = $self->SUPER::config(@_);
# remove all unused values
foreach my $opt_key ($self->_extruder_options) {
splice @{ $config->{$opt_key} }, $self->{extruders_count};
}
return $config;
}
sub _build_extruder_pages {
2012-07-18 18:36:34 +00:00
my $self = shift;
2012-06-18 20:27:57 +00:00
foreach my $extruder_idx (0 .. $self->{extruders_count}-1) {
2012-07-18 18:36:34 +00:00
# build page if it doesn't exist
$self->{extruder_pages}[$extruder_idx] ||= $self->add_options_page("Extruder " . ($extruder_idx + 1), 'funnel.png', optgroups => [
{
title => 'Size',
options => ['nozzle_diameter#' . $extruder_idx],
},
{
title => 'Retraction',
options => [qw(retract_length retract_lift retract_speed retract_restart_extra retract_before_travel)],
},
]);
$self->{extruder_pages}[$extruder_idx]{disabled} = 0;
}
# rebuild page list
@{$self->{pages}} = (
(grep $_->{title} !~ /^Extruder \d+/, @{$self->{pages}}),
@{$self->{extruder_pages}}[ 0 .. $self->{extruders_count}-1 ],
2012-07-18 18:36:34 +00:00
);
}
sub on_value_change {
my $self = shift;
my ($opt_key) = @_;
$self->SUPER::on_value_change(@_);
if ($opt_key eq 'extruders_count') {
# remove unused pages from list
my @unused_pages = @{ $self->{extruder_pages} }[$self->{extruders_count} .. $#{$self->{extruder_pages}}];
2012-07-18 18:36:34 +00:00
for my $page (@unused_pages) {
@{$self->{pages}} = grep $_ ne $page, @{$self->{pages}};
$page->{disabled} = 1;
}
# add extra pages
$self->_build_extruder_pages;
2012-07-18 18:36:34 +00:00
# update page list and select first page (General)
$self->update_tree(0);
}
}
# this gets executed after preset is loaded and before GUI fields are updated
2012-07-18 18:36:34 +00:00
sub on_preset_loaded {
my $self = shift;
# update the extruders count field
2012-07-20 12:41:27 +00:00
{
# update the GUI field according to the number of nozzle diameters supplied
$self->set_value('extruders_count', scalar @{ $self->{config}->nozzle_diameter });
2012-07-18 18:36:34 +00:00
# update extruder page list
$self->on_value_change('extruders_count');
}
2012-06-17 20:27:05 +00:00
}
package Slic3r::GUI::Tab::Page;
use Wx qw(:misc :panel :sizer);
2012-06-18 09:26:21 +00:00
use base 'Wx::ScrolledWindow';
2012-06-17 20:27:05 +00:00
sub new {
my $class = shift;
2012-07-18 18:36:34 +00:00
my ($parent, $title, $iconID, %params) = @_;
my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
$self->{optgroups} = [];
2012-07-18 18:36:34 +00:00
$self->{title} = $title;
$self->{iconID} = $iconID;
2012-06-17 20:27:05 +00:00
2012-06-18 09:26:21 +00:00
$self->SetScrollbars(1, 1, 1, 1);
2012-07-01 17:24:06 +00:00
$self->{vsizer} = Wx::BoxSizer->new(wxVERTICAL);
2012-06-17 20:27:05 +00:00
$self->SetSizer($self->{vsizer});
if ($params{optgroups}) {
$self->append_optgroup(
%$_,
config => $parent->{config},
on_change => $params{on_change},
) for @{$params{optgroups}};
2012-06-17 20:27:05 +00:00
}
return $self;
}
sub append_optgroup {
my $self = shift;
2012-07-18 18:36:34 +00:00
my %params = @_;
2012-06-17 20:27:05 +00:00
my $optgroup = Slic3r::GUI::ConfigOptionsGroup->new(
parent => $self,
config => $self->GetParent->{config},
label_width => 200,
%params,
);
$self->{vsizer}->Add($optgroup->sizer, 0, wxEXPAND | wxALL, 5);
push @{$self->{optgroups}}, $optgroup;
}
sub set_value {
my $self = shift;
my ($opt_key, $value) = @_;
my $changed = 0;
foreach my $optgroup (@{$self->{optgroups}}) {
$changed = 1 if $optgroup->set_value($opt_key, $value);
}
return $changed;
2012-06-17 20:27:05 +00:00
}
2012-06-18 20:27:57 +00:00
package Slic3r::GUI::SavePresetWindow;
use Wx qw(:combobox :dialog :id :misc :sizer);
use Wx::Event qw(EVT_BUTTON EVT_TEXT_ENTER);
2012-06-18 20:27:57 +00:00
use base 'Wx::Dialog';
sub new {
my $class = shift;
my ($parent, %params) = @_;
my $self = $class->SUPER::new($parent, -1, "Save preset", wxDefaultPosition, wxDefaultSize);
2012-06-18 20:27:57 +00:00
my $text = Wx::StaticText->new($self, -1, "Save " . lc($params{title}) . " as:", wxDefaultPosition, wxDefaultSize);
$self->{combo} = Wx::ComboBox->new($self, -1, $params{default}, wxDefaultPosition, wxDefaultSize, $params{values},
2012-07-01 17:24:06 +00:00
wxTE_PROCESS_ENTER);
my $buttons = $self->CreateStdDialogButtonSizer(wxOK | wxCANCEL);
2012-06-18 20:27:57 +00:00
my $sizer = Wx::BoxSizer->new(wxVERTICAL);
$sizer->Add($text, 0, wxEXPAND | wxTOP | wxLEFT | wxRIGHT, 10);
$sizer->Add($self->{combo}, 0, wxEXPAND | wxLEFT | wxRIGHT, 10);
2012-06-18 20:27:57 +00:00
$sizer->Add($buttons, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
2012-07-01 17:24:06 +00:00
EVT_BUTTON($self, wxID_OK, \&accept);
EVT_TEXT_ENTER($self, $self->{combo}, \&accept);
2012-06-18 20:27:57 +00:00
$self->SetSizer($sizer);
$sizer->SetSizeHints($self);
return $self;
}
sub accept {
my ($self, $event) = @_;
if (($self->{chosen_name} = $self->{combo}->GetValue)) {
2012-08-06 12:23:00 +00:00
if ($self->{chosen_name} =~ /^[^<>:\/\\|?*\"]+$/i) {
$self->EndModal(wxID_OK);
} else {
2012-08-06 12:23:00 +00:00
Slic3r::GUI::show_error($self, "The supplied name is not valid; the following characters are not allowed: <>:/\|?*\"");
}
}
}
2012-06-18 20:27:57 +00:00
sub get_name {
my $self = shift;
return $self->{chosen_name};
}
2012-06-17 20:27:05 +00:00
1;