#!/usr/bin/perl --
#!perl
use Win32::GUI;
use Data::Dump;

Main( @ARGV );
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();
	$WinMain->{__special_Menu} = $Menu;
    dd $Menu, $WinMain;
	Win32::GUI::Dialog();
    delete $WinMain->{__special_Menu}; # "DESTROY"/destructor/manual memory cycle break
}

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';
    dd $menu;
#~ 	$menu->{'Beta'}->Enabled(0); # Doesn't work.
	$Window->{__special_Menu}->{'Beta'}->Enabled(0);
	return 1;
}