#!perl -wT
# Win32::GUI test suite.
# $Id: 05_Menu.t,v 1.2 2006/05/16 18:57:26 robertemay Exp $
#
# test coverage of Menus

use strict;
use warnings;

BEGIN { $| = 1 } # Autoflush

use Test::More tests => 4;

use Win32::GUI();

my $ctrl = "Menu";
my $name = "Test$ctrl";
my $class = "Win32::GUI::$ctrl";
my @menulist =
    (
     "&File" => "File",
     "> &Open..." => {-name => 'MenuOpen'},
     "> &Save"    => {-name => 'MenuSave'},
     "> -" 	  => 0,
     "> &Quit"    => {-name => 'MenuQuit'},
    );

my $C = Win32::GUI::MakeMenu(@menulist);
isa_ok($C, $class, "new $class");

my $W = new Win32::GUI::Window(
    -name => "TestWindow",
    -pos  => [  0,   0],
    -size => [100, 100],
    -text => "TestWindow",
    -menu => $C,
);
isa_ok($W, "Win32::GUI::Window", "\$W");

$C->{MenuSave}->Enabled(0);
is($C->{MenuSave}->Enabled(), 0, "Enabled(0)");

$C->{MenuOpen}->Checked(1);
is($C->{MenuOpen}->Checked(), 1, "Checked(1)");

# What is this testing?
#Win32::GUI::Timer->new($W, "Timer1", 500);
#sub Timer1_Timer { $W->PostQuitMessage(); }
#$W->Show();
#Win32::GUI::Dialog();