Update copies number when decreasing parts. #747
This commit is contained in:
parent
769134bb6f
commit
6b4f038d17
1 changed files with 1 additions and 0 deletions
|
@ -384,6 +384,7 @@ sub decrease {
|
||||||
my ($obj_idx, $object) = $self->selected_object;
|
my ($obj_idx, $object) = $self->selected_object;
|
||||||
if ($object->instances_count >= 2) {
|
if ($object->instances_count >= 2) {
|
||||||
pop @{$object->instances};
|
pop @{$object->instances};
|
||||||
|
$self->{list}->SetItem($obj_idx, 1, $object->instances_count);
|
||||||
} else {
|
} else {
|
||||||
$self->remove;
|
$self->remove;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue