use Win32::GUI;
use Win32::GUI::Grid;
use warnings;
use strict;

my $main = Win32::GUI::Window->new(
    -name      => "Main",
    -title     => "Test",
    -pos       => [100, 100],
    -size      => [200, 200],
) or die "new Window";

my $Grid = $main->AddGrid (
    -name    => "Grid",
    -pos     => [20, 20],
) or die "new Grid";

$Grid->SetColumns(1);
$Grid->SetRows(2);

$Grid->SetRowHeight(0, 80);
$Grid->SetRowHeight(1, 80);
$Grid->SetColumnWidth(0, 80);

$Grid->SetCellText(0, 0, 'Cell 1');
$Grid->SetCellText(1, 0, 'Cell 2');

my $sb = $main->AddStatusBar();

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

sub Window_Terminate {
  return -1;
}

sub Main_Resize {
	$sb->Move(0, $main->ScaleHeight - $sb->Height);
    $sb->Resize($main->ScaleWidth, $sb->Height);
	my ($width, $height) = ($main->GetClientRect)[2..3];
	$Grid->Resize (110, $height - $sb->Height - 20);
}