package IUP::LayoutDialog;
use strict;
use warnings;
use base 'IUP::Internal::Element';

use IUP::Internal::LibraryIup;
use Scalar::Util 'blessed';
use Carp;

sub _create_element {
  my ($self, $args, $firstonly) = @_;
  if (defined $firstonly) {
    return IUP::Internal::LibraryIup::_IupLayoutDialog($firstonly->ihandle) if blessed($firstonly) && $firstonly->can('ihandle');
  }
  elsif (defined $args->{dialog}) {
    my $d = $args->{dialog};
    delete $args->{dialog};
    return IUP::Internal::LibraryIup::_IupLayoutDialog($d->ihandle) if blessed($d) && $d->can('ihandle');    
  }
  carp "[warning] IUP::LayoutDialog->new() parameter mismatch";
  return undef;
}

1;