Front page | perl.perl5.porters |
Postings from November 1999
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);