use strict;
use warnings;
use Win32::GUI;

my $next_menu_id = 1;

my $menuMW = Win32::GUI::Menu->new();

my $btnMenu = $menuMW->AddMenuButton( 
    -text    => 'Configuration',
#    -id      => $next_menu_id++,
);

my $itmDBSetup = $btnMenu->AddMenuItem(
    -text    => 'Database Setup',
#    -id      => $next_menu_id++,
    -onClick => sub {
        print "I'm the first OnClick!\n";
    },
);

my $itmQuit = $btnMenu->AddMenuItem(
    -text    => 'Exit',
#    -id      => $next_menu_id++,
    -onClick => sub {
        print "I'm the second OnClick, and I Quit!\n";
        return -1;
    },
);

my $MainWindow = GUI::Window->new(
    -text => 'Main',
    -name => 'MainWindow',
    -pos  => [  10,  10 ],
    -size => [ 900, 900 ],
    -menu => $menuMW,
);

$MainWindow->Show();

Win32::GUI::Dialog();

sub MainWindow_Terminate {
    return -1;
}