use Win32::GUI;
use GridLayout;

$grid = GridLayout::new(3,3,400,300,0,0);

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

## ROW 1
$win->AddLabel(
    -name => "label1",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(1, "l"),
    -top => $grid->row(1, "t"),
    -text => "Label 1",
);

$win->AddLabel(
    -name => "label2",
    -width => $grid->width(35),
    -height => $grid->height(50),
    -left => $grid->column(2, "c"),
    -top => $grid->row(1, "c"),
    -text => "Label 2",
);

$win->AddLabel(
    -name => "label3",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(3, "r"),
    -top => $grid->row(1, "t"),
    -text => "Label 3",
);

## ROW 2
$win->AddLabel(
    -name => "label4",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(1, "l"),
    -top => $grid->row(2, "c"),
    -text => "Label 4",
);

$win->AddLabel(
    -name => "label5",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(2, "c"),
    -top => $grid->row(2, "c"),
    -text => "Label 5",
);

$win->AddLabel(
    -name => "label6",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(3, "r"),
    -top => $grid->row(2, "c"),
    -text => "Label 6",
);

## ROW 3
$win->AddLabel(
    -name => "label7",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(1, "l"),
    -top => $grid->row(3, "b"),
    -text => "Label 7",
);

$win->AddLabel(
    -name => "label8",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(2, "c"),
    -top => $grid->row(3, "c"),
    -text => "Label 8",
);

$win->AddLabel(
    -name => "label9",
    -width => $grid->width(35),
    -height => $grid->height(11),
    -left => $grid->column(3, "r"),
    -top => $grid->row(3, "b"),
    -text => "Label 9",
);

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