package IUP::Button;
use strict;
use warnings;
use base 'IUP::Internal::Element';
use IUP::Internal::LibraryIup;

sub _create_element {
  my ($self, $args, $firstonly) = @_;
  my $ih = IUP::Internal::LibraryIup::_IupButton($args->{TITLE}, undef);
  delete $args->{TITLE};
  return $ih;
}

1;