[perl-win32-gui] Sorry... Here are the files to the GridLayout

[Mike Kangas]

Oops.

package GridLayout;

sub new {
  my($c, $r, $w, $h, $xpad, $ypad) = @_;
  my $r_grid = {
    "cols" => $c,
    "rows" => $r,
    "width" => $w,
    "height" => $h,
    "xPad" => $xpad,
    "yPad" => $ypad,
  };
  bless $r_grid, 'GridLayout';
  return $r_grid;
}

sub column {
  my ($grid_param, $col) = @_;
  $col--;
  $colWidth = int($grid_param->{'width'} / $grid_param->{'cols'});
  $x = ($col * $colWidth) + ($grid_param->{'xPad'});
  return $x;
}

sub row {
  my ($grid_param,$row) = @_;
  $row--;
  $rowHeight = int($grid_param->{'height'} / $grid_param->{'rows'});
  $y = $row * $rowHeight + ($grid_param->{'yPad'});
  return $y;
}

1;

test1.pl

test2.pl