#!/usr/bin/perl -w
use strict;
use Win32::GUI;
use Win32::GUI::Grid;

my $main = Win32::GUI::Window->new(-name=>'main',-text=>'grid test',-width=>400,-height=>200,-dialogui=>1);
$main->AddGrid(-name=>'grid',-pos=>[30,40],-rows=>3,-columns=>3,-fixedrows=>1,-fixedcolumns=>0,-editable=>0,-size=> [350,75],-addstyle=>WS_VSCROLL|WS_TABSTOP);
for my $col(0..2)
{
    $main->grid->SetCellText(0, $col, "H$col");
}
for my $row(1..2)
{
    for my $col(0..2)
    {
        $main->grid->SetCellText($row, $col, "$row:$col");
        $main->grid->SetCellData($row, $col, "$row $col") or die "Could not set celldata: $!\n";
    }
}
$main->Show();
Win32::GUI::Dialog();

exit;

sub grid_Click
{
    my ($row,$col) = @_;
    my $celldata = $main->grid->GetCellData($row, $col) or die "Error: $!\n";
    my $ret = Win32::GUI->MessageBox("ROW: $row COL: $col (CELLDATA: $celldata)");
    return 1;
}