#!perl
use Win32::GUI;

&Main();
exit 0;

sub Main {

	my $Menu = Win32::GUI::MakeMenu(
		'&Program' => 'Program',
		' > &Alpha' => { -name => 'Alpha', -onClick => \&Alpha_Select },
		' > &Beta' => { -name => 'Beta', -onClick => \&Beta_Select },
	);

	my $WinMain = Win32::GUI::Window->new(
		-name => 'Main',
		-menu => $Menu,
		-text => 'Menu Test',
		-width => 300,
		-height => 200,
		-onTerminate => \&Main_Terminate,
	);

	$WinMain->Show();
	Win32::GUI::Dialog();
}

sub Main_Terminate { -1; }
sub Alpha_Select { 1; }

sub Beta_Select {
	my($Window)=@_;
	my $menuhandle=$Window->GetMenu();
	my $menu = bless { -handle => $menuhandle }, 'Win32::GUI::Menu';
	$menu->{'Beta'}->Enabled(0); # Doesn't work.
	return 1;
}