develooper Front page | perl.perl5.porters | Postings from November 1999

[ID 19991119.004] Bug in Tk::Tiler

From:
avni, haim
Date:
November 19, 1999 12:40
Subject:
[ID 19991119.004] Bug in Tk::Tiler
Message ID:
8A7271ACBE5BD311A4D50090273BF0234B5014@montana.lss.emc.com
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);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About