3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 20:51:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Bugfix: split wasn't working properly under threaded perls

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-10-01 18:12:14 +02:00
parent 2c400ee2b8
commit 1a6eaeaa91
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/Slic3r/GUI/Plater.pm
View file

@ -159,8 +159,7 @@ sub new {
my ($self, $event) = @_;
my ($obj_idx, $thumbnail) = @{$event->GetData};
$self->{objects}[$obj_idx]->thumbnail($thumbnail->clone);
$self->{objects}[$obj_idx]->mesh(undef);
$self->on_thumbnail_made;
$self->on_thumbnail_made($obj_idx);
});
EVT_COMMAND($self, -1, $PROGRESS_BAR_EVENT, sub {
@ -700,7 +699,7 @@ sub make_thumbnail {
Wx::PostEvent($self, Wx::PlThreadEvent->new(-1, $THUMBNAIL_DONE_EVENT, shared_clone([ $obj_idx, $thumbnail ])));
threads->exit;
} else {
$self->on_thumbnail_made;
$self->on_thumbnail_made($obj_idx);
}
};
@ -709,6 +708,9 @@ sub make_thumbnail {
sub on_thumbnail_made {
my $self = shift;
my ($obj_idx) = @_;
$self->{objects}[$obj_idx]->free_mesh;
$self->recenter;
$self->{canvas}->Refresh;
}
@ -1016,6 +1018,14 @@ sub _trigger_mesh {
$self->size([$self->mesh->size]) if $self->mesh;
}
sub free_mesh {
my $self = shift;
# only delete mesh from memory if we can retrieve it from the original file
return unless $self->input_file && $self->input_file_object_id;
$self->mesh(undef);
}
sub get_mesh {
my $self = shift;