3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-12 09:17:52 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Store the tab name within each tab for reuse

Browse source
This commit is contained in:
Henrik Brix Andersen 2012-06-24 10:20:42 +02:00
parent d0588c2ef8
commit 30d88d7ffa
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/Slic3r/GUI/Tab.pm
View file

@ -11,9 +11,11 @@ use base 'Wx::Panel';
sub new {
my $class = shift;
my ($parent, %params) = @_;
my ($parent, $title, %params) = @_;
my $self = $class->SUPER::new($parent, -1, [-1,-1], [-1,-1], &Wx::wxBK_LEFT);
$self->{title} = $title;
$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);
@ -197,6 +199,11 @@ sub is_dirty {
return $self->{dirty};
}
sub title {
my $self = shift;
return $self->{title}
}
sub load_presets {
my $self = shift;
my ($group) = @_;
@ -259,7 +266,7 @@ use base 'Slic3r::GUI::Tab';
sub new {
my $class = shift;
my ($parent, %params) = @_;
my $self = $class->SUPER::new($parent, %params);
my $self = $class->SUPER::new($parent, 'Print Settings', %params);
$self->add_options_page('Layers and perimeters', 'layers.png', optgroups => [
{
@ -365,7 +372,7 @@ use base 'Slic3r::GUI::Tab';
sub new {
my $class = shift;
my ($parent, %params) = @_;
my $self = $class->SUPER::new($parent, %params);
my $self = $class->SUPER::new($parent, 'Filament Settings', %params);
$self->add_options_page('Filament', 'spool.png', optgroups => [
{
@ -407,7 +414,7 @@ use base 'Slic3r::GUI::Tab';
sub new {
my $class = shift;
my ($parent, %params) = @_;
my $self = $class->SUPER::new($parent, %params);
my $self = $class->SUPER::new($parent, 'Printer Settings', %params);
$self->add_options_page('General', 'printer_empty.png', optgroups => [
{