sub new {
    my $class = shift;
    my $self = $class->SUPER::new();
    if(@_ == 1) { 
        my $thing = shift;
        $self->{WIDGET} = $thing =~ /\D/ ?
            Etk::etk_button_new_with_label($thing) : 
            Etk::etk_button_new_from_stock($thing);
    } else {
        $self->{WIDGET} = Etk::etk_button_new();
    }
    bless($self, $class);
    return $self;
}