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,8 +323,10 @@ sub object_loaded {
sub remove { sub remove {
my $self = shift; my $self = shift;
my ($obj_idx) = @_; my ($obj) = @_;
my $obj_idx = $obj->GetInt();
if (defined $obj_idx) { if (defined $obj_idx) {
$self->{print}->copies->[$obj_idx][$_] = undef $self->{print}->copies->[$obj_idx][$_] = undef
for 0 .. $#{ $self->{print}->copies->[$obj_idx] }; for 0 .. $#{ $self->{print}->copies->[$obj_idx] };