Fix regression in cut

This commit is contained in:
Alessandro Ranellucci 2014-06-14 22:36:49 +02:00
parent 182c5eb809
commit 87383250de
3 changed files with 11 additions and 12 deletions

View file

@ -1201,7 +1201,7 @@ sub object_cut_dialog {
if (my @new_objects = $dlg->NewModelObjects) {
$self->remove($obj_idx);
$self->load_model_objects(@new_objects);
$self->load_model_objects(grep defined($_), @new_objects);
$self->arrange;
}
}

View file

@ -125,7 +125,8 @@ sub new {
sub perform_cut {
my ($self) = @_;
my ($upper_object, $lower_object) = $self->{model_object}->cut($self->{cut_options}{z});
my ($new_model, $upper_object, $lower_object) = $self->{model_object}->cut($self->{cut_options}{z});
$self->{new_model} = $new_model;
$self->{new_model_objects} = [];
if ($self->{cut_options}{keep_upper} && defined $upper_object) {
push @{$self->{new_model_objects}}, $upper_object;