… | |
… | |
457 | |
457 | |
458 | sub set_parent { |
458 | sub set_parent { |
459 | my ($self, $parent) = @_; |
459 | my ($self, $parent) = @_; |
460 | |
460 | |
461 | Scalar::Util::weaken ($self->{parent} = $parent); |
461 | Scalar::Util::weaken ($self->{parent} = $parent); |
|
|
462 | |
|
|
463 | $self->{root} = $parent->{root}; |
|
|
464 | $self->{visible} = $parent->{visible}; |
462 | |
465 | |
463 | # TODO: req_w _does_change after ->reconfigure |
466 | # TODO: req_w _does_change after ->reconfigure |
464 | $self->check_size |
467 | $self->check_size |
465 | unless exists $self->{req_w}; |
468 | unless exists $self->{req_w}; |
466 | |
469 | |