diff options
author | Vojtech Kral <vojtech@kral.hk> | 2018-09-17 13:15:11 +0300 |
---|---|---|
committer | Vojtech Kral <vojtech@kral.hk> | 2018-10-01 10:28:40 +0300 |
commit | 342b584399cb14d648599bd7e950ac87bff6f9b1 (patch) | |
tree | e817cf45ce56405078af9d42edf83f7f912f27cf /lib | |
parent | 746d06fe3eb4604272e648645f6610f00ef277e8 (diff) |
WIP: Plater
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Slic3r/GUI/Plater.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Slic3r/GUI/Plater.pm b/lib/Slic3r/GUI/Plater.pm index c7d4260d2..b834bc202 100644 --- a/lib/Slic3r/GUI/Plater.pm +++ b/lib/Slic3r/GUI/Plater.pm @@ -593,6 +593,7 @@ sub new { $self->on_process_completed($event->GetInt ? undef : $event->GetString); }); +# XXX: ??? { my $timer_id = Wx::NewId(); $self->{apply_config_timer} = Wx::Timer->new($self, $timer_id); @@ -872,7 +873,7 @@ sub on_layer_editing_toggled { $self->{canvas3D}->Update; } -sub GetFrame { +sub GetFrame { # XXX: main_frame in C++ Plater my ($self) = @_; return &Wx::GetTopLevelParent($self); } @@ -960,7 +961,7 @@ sub load_files { # Object indices for the UI. my @obj_idx = (); # Collected file names to display the final message on the status bar. - my @loaded_files = (); + my @loaded_files = (); # XXX: used??? # For all input files. for (my $i = 0; $i < @$input_files; $i += 1) { my $input_file = $input_files->[$i]; @@ -996,7 +997,7 @@ sub load_files { # objects imported from 3mf require a call to center_around_origin to have gizmos working properly and this call # need to be done after looks_like_multipart_object detection - if ($input_file =~ /.3[mM][fF]$/) + if ($input_file =~ /[.]3[mM][fF]$/) { foreach my $model_object (@{$model->objects}) { $model_object->center_around_origin; # also aligns object to Z = 0 @@ -1241,7 +1242,7 @@ sub set_number_of_copies { } } -sub _get_number_from_user { +sub _get_number_from_user { # XXX: Enrico my ($self, $title, $prompt_message, $error_message, $default, $only_positive) = @_; for (;;) { my $value = Wx::GetTextFromUser($prompt_message, $title, $default, $self); |