my $button = Etk::Button->new();
$button->LabelSet("moo");
$button->SignalConnect("clicked",
    sub {
        my $self = shift;
        print $self->LabelGet(),"\n";
    });