use strict;
use warnings;
use Win32::GUI();

# main Window
my $Window = new Win32::GUI::Window (
    -name     => "Window",
    -title    => "MonthCal Sample",
    -pos      => [100, 100],
    -size     => [440, 400],
) or die "new Window";

# Mono select MonthCal control
$Window->AddMonthCal (
    -name     => "MonthCalMono",
    -pos      => [10, 10],
    -size     => [200, 160],
    #-onSelect => \&OnSelect,
    #-onSelChange => \&OnSelChange,
);

# Event loop
$Window->Show();
Win32::GUI::Dialog();