Fixed Perl array addressing issues, leading to crashes when loading
additional objects at the 3D path preview window.
This commit is contained in:
parent
03c6efe0d6
commit
ae1a015494
@ -32,7 +32,7 @@ sub new {
|
|||||||
$self->{on_instances_moved} = sub {};
|
$self->{on_instances_moved} = sub {};
|
||||||
$self->{on_wipe_tower_moved} = sub {};
|
$self->{on_wipe_tower_moved} = sub {};
|
||||||
|
|
||||||
$self->{objects_volumes_idxs} = ();
|
$self->{objects_volumes_idxs} = [];
|
||||||
|
|
||||||
$self->on_select(sub {
|
$self->on_select(sub {
|
||||||
my ($volume_idx) = @_;
|
my ($volume_idx) = @_;
|
||||||
@ -188,8 +188,8 @@ sub update_volumes_selection {
|
|||||||
|
|
||||||
foreach my $obj_idx (0..$#{$self->{model}->objects}) {
|
foreach my $obj_idx (0..$#{$self->{model}->objects}) {
|
||||||
if ($self->{objects}[$obj_idx]->selected) {
|
if ($self->{objects}[$obj_idx]->selected) {
|
||||||
my @volume_idxs = @{$self->{objects_volumes_idxs}[$obj_idx]};
|
my $volume_idxs = $self->{objects_volumes_idxs}->[$obj_idx];
|
||||||
$self->select_volume($_) for @volume_idxs;
|
$self->select_volume($_) for @{$volume_idxs};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -207,7 +207,7 @@ sub reload_scene {
|
|||||||
|
|
||||||
$self->{reload_delayed} = 0;
|
$self->{reload_delayed} = 0;
|
||||||
|
|
||||||
$self->{objects_volumes_idxs} = ();
|
$self->{objects_volumes_idxs} = [];
|
||||||
foreach my $obj_idx (0..$#{$self->{model}->objects}) {
|
foreach my $obj_idx (0..$#{$self->{model}->objects}) {
|
||||||
my @volume_idxs = $self->load_object($self->{model}, $self->{print}, $obj_idx);
|
my @volume_idxs = $self->load_object($self->{model}, $self->{print}, $obj_idx);
|
||||||
push(@{$self->{objects_volumes_idxs}}, \@volume_idxs);
|
push(@{$self->{objects_volumes_idxs}}, \@volume_idxs);
|
||||||
|
Loading…
Reference in New Issue
Block a user