diff options
| -rw-r--r-- | ivybanner | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -536,12 +536,12 @@ sub subdirframe { push(@cleanfilelist, [$file, $type]); } #print "\n"; - print "maxnb=$maxnb cleanfilelist=", scalar @cleanfilelist, "\n"; + #print "maxnb=$maxnb cleanfilelist=", scalar @cleanfilelist, "\n"; my $demosnb = @cleanfilelist; if ($demosnb > $maxnb) { splice(@cleanfilelist, $maxnb-1); } - print "apres cleanfilelist=", scalar @cleanfilelist, "\n"; + #print "apres cleanfilelist=", scalar @cleanfilelist, "\n"; my $maxc = $max_columns; for my $i (1, 4, 9, 16, 25) { if ($demosnb <= $i) { @@ -603,7 +603,7 @@ sub subdirframe { } } if ($demosnb > $maxnb) { - print "maxnb=$maxnb\n"; + #print "maxnb=$maxnb\n"; my $many = $demosnb - $maxnb + 1; ($xi, $yi) = ($x + ($c-1)*($dx+$fmw), $y + ($r-1)*($dy+$fmh)); my $disa = $fm2->Button(@buttonattr, |