A bit of refactoring and beautification.

This commit is contained in:
bubnikv 2017-09-18 10:01:37 +02:00
parent e16f827223
commit b58756f38b
6 changed files with 29 additions and 23 deletions

View file

@ -15,8 +15,7 @@ use base 'Wx::Dialog';
# %params{object} of a Perl type Slic3r::GUI::Plater::Object
# %params{model_object} of a C++ type Slic3r::ModelObject
sub new {
my $class = shift;
my ($parent, %params) = @_;
my ($class, $parent, %params) = @_;
my $self = $class->SUPER::new($parent, -1, "Settings for " . $params{object}->name, wxDefaultPosition, [700,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER);
$self->{$_} = $params{$_} for keys %params;