Bug in Tk::Tiler

[p5pRT]

Migrated from rt.perl.org#1810 (status was 'resolved')

Searchable as RT1810$

[p5pRT]

From avni_haim@emc.com

This is a bug report for perl from avni@​emc.com,
generated with the help of perlbug 1.26 running under perl 5.00503.

---

[Please enter your report here]
The bug​: Scrolled Tiler does not scroll properly.

The fix​: use int where $cols and $rows are calculated in Tiler.pm​:

  my $cols = $m->{Cols} = int(($W-2*$bw)/$w) || 1;
  my $rows = $m->{Rows} = int(($H-2*$bw)/$h) || 1;
  my $need = $m->{Need} = int( (@​{$m->{Slaves}}+$cols-1)/$cols );
  $m->{Start} = ($need - $rows) if ($m->{Start} + $rows > $need);
  $m->{Start} = 0 if ($m->{Start} < 0);