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

##</code><code>##

void
ChildGet(bin, ...)
    Etk_Bin * bin;
PREINIT:
    char * class = "Etk::Widget";
    Etk_Button * button; 
PPCODE:
    if (items > 1) 
        class = SvPV_nolen( ST(1) );
    button = TK_BUTTON(etk_bin_child_get(bin)); 
    ST(0) = sv_newmortal();
    sv_setref_pv(ST(0), class, (void*)button);
    XSRETURN(1);