#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#  (C) Paul Evans, 2011-2022 -- leonerd@leonerd.org.uk

use Object::Pad 0.70 ':experimental(adjust_params)';

package Tickit::SingleChildWidget 0.57;
class Tickit::SingleChildWidget

use Carp;

=head1 NAME

C<Tickit::SingleChildWidget> - abstract base class for widgets that contain a
single other widget




This subclass of L<Tickit::ContainerWidget> acts as an abstract base class for
widgets that contain exactly one other widget. It enforces that only one child
widget may be contained at any one time, and provides a convenient accessor to
obtain it.




=head2 new

   $widget = Tickit::SingleChildWidget->new( %args )

Constructs a new C<Tickit::SingleChildWidget> object.


ADJUST :params ( :$child = undef )
   if( $child ) {
      croak "The 'child' constructor argument to ${\ref $self} is no longer recognised; use ->set_child instead";

=head1 AUTHOR

Paul Evans <leonerd@leonerd.org.uk>