Select Code to Download

void
DESTROY(object)
      SV * object
      CODE:
      FreeEtkObject(object);

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