Dereference the Wx object id when removing an object in the plater.

This commit is contained in:
Nicolas Dandrimont 2012-08-11 15:49:06 +02:00
parent 0833b4e021
commit 4979029cd2

View file

@ -323,7 +323,9 @@ sub object_loaded {
sub remove {
my $self = shift;
my ($obj_idx) = @_;
my ($obj) = @_;
my $obj_idx = $obj->GetInt();
if (defined $obj_idx) {
$self->{print}->copies->[$obj_idx][$_] = undef