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

This commit is contained in:
Nicolas Dandrimont committed 2012-08-11 15:49:06 +02:00
1 parent 0833b4e021
commit 4979029cd2
1 file changed
+3 -1
+3 -1
View File
@@ -323,7 +323,9 @@ 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