To: perlbug@perl.com Subject: Tk::Tiler bug Cc: support@activestate.com Reply-To: avni@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);