… | |
… | |
530 | |
530 | |
531 | $self |
531 | $self |
532 | } |
532 | } |
533 | |
533 | |
534 | sub add { |
534 | sub add { |
535 | my ($self, $child) = @_; |
535 | my ($self, @widgets) = @_; |
536 | |
536 | |
537 | $child->set_parent ($self); |
537 | $_->set_parent ($self) |
|
|
538 | for @widgets; |
538 | |
539 | |
539 | use sort 'stable'; |
540 | use sort 'stable'; |
540 | |
541 | |
541 | $self->{children} = [ |
542 | $self->{children} = [ |
542 | sort { $a->{z} <=> $b->{z} } |
543 | sort { $a->{z} <=> $b->{z} } |
543 | @{$self->{children}}, $child |
544 | @{$self->{children}}, @widgets |
544 | ]; |
545 | ]; |
545 | |
546 | |
546 | $child->check_size; |
547 | $_->check_size |
|
|
548 | for @widgets; |
|
|
549 | |
547 | $self->update; |
550 | $self->update; |
548 | } |
551 | } |
549 | |
552 | |
550 | sub children { |
553 | sub children { |
551 | @{ $_[0]{children} } |
554 | @{ $_[0]{children} } |