use Win32::GUI;
use Win32::GUI::GridLayout;

$win = new Win32::GUI::Window(
    -name   => "Window",
    -left   => 0,
    -top    => 0,
    -width  => 400,
    -height => 300,
    -title  => "GridLayout Beta $GridLayout::VERSION",
);

$grid = apply Win32::GUI::GridLayout($win, 3, 3, 0, 0);

## ROW 1
$win->AddLabel(
    -name   => "label1",
    -text   => "Label 1",
    -background => [255, 255, 255],
);
$grid->add($win->label1, 1, 1, "left top");

$win->AddLabel(
    -name   => "label2",
    -text   => "Label 2",
);
$grid->add($win->label2, 2, 1, "center center");

$win->AddLabel(
    -name   => "label3",
    -text   => "Label 3",
);
$grid->add($win->label3, 3, 1, "right top");

## ROW 2
$win->AddLabel(
    -name   => "label4",
    -text   => "Label 4",
);
$grid->add($win->label4, 1, 2, "left center");

$win->AddLabel(
    -name   => "label5",
    -text   => "Label 5",
);
$grid->add($win->label5, 2, 2, "center center");

$win->AddLabel(
    -name   => "label6",
    -text   => "Label 6",
);
$grid->add($win->label6, 3, 2, "right center");

## ROW 3
$grid->add(
    $win->AddLabel(
        -name   => "label7",
        -text   => "Label 7",
    ),
    1, 3, "left bottom"
);

$grid->add(
    $win->AddLabel(
        -name   => "label8",
        -text   => "Label 8",
    ), 
    2, 3, "center center"
);

$grid->add(
    $win->AddLabel(
        -name   => "label9",
        -text   => "Label 9",
    ), 
    3, 3, "right bottom"
);

$win->Show();
Win32::GUI::Dialog();

sub Window_Terminate { return -1; }

sub Window_Resize {

    $grid->recalc();
#    $grid->draw();  

}