Update copies number when decreasing parts. #747

This commit is contained in:
Alessandro Ranellucci 2012-10-15 10:59:54 +02:00
parent 769134bb6f
commit 6b4f038d17

View file

@ -384,6 +384,7 @@ sub decrease {
my ($obj_idx, $object) = $self->selected_object;
if ($object->instances_count >= 2) {
pop @{$object->instances};
$self->{list}->SetItem($obj_idx, 1, $object->instances_count);
} else {
$self->remove;
}