# IUP::Dialog example
#
# extremely simple dialog creation
use strict;
use warnings;
use IUP ':all';
sub msg {
IUP->Message("Click!");
}
my $vbox = IUP::Vbox->new( GAP=>5, child=>[
IUP::Label->new(TITLE=>"Label before buttons:"),
IUP::Button->new(TITLE=>"Test button1", ACTION=>\&msg),
IUP::Button->new(TITLE=>"Test button2", ACTION=>\&msg),
IUP::Button->new(TITLE=>"Test button3", ACTION=>\&msg),
]);
my $dlg = IUP::Dialog->new( child=>$vbox, MARGIN=>"10x10", TITLE=>"Hi!", SIZE=>"150x");
$dlg->Show();
IUP->MainLoop;