sub ChildGet {
    my ( $self, $class ) = @_;
    $class = "Etk::Widget" unless defined $class; 
    my $child = $self->{_CHILD} 
        ? $self->{_CHILD}
        : child_get($self);
    return bless $child, $class;
}