diff options
| -rw-r--r-- | debian/changelog | 8 | ||||
| -rw-r--r-- | debian/files | 2 | ||||
| -rw-r--r-- | ivybanner | 30 |
3 files changed, 26 insertions, 14 deletions
diff --git a/debian/changelog b/debian/changelog index fd18fa4..6ac47e1 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,11 @@ +ivybanner (1.4) unstable; urgency=low + + * Possibilité d'explorer une arborescence de fichiers. Les répertoires + dont le nom commence par . sont ignorés. + * Correction du bug d'affichage du champ de saisie du port ivy. + + -- Daniel Etienne <etienne@cena.fr> Fri, 19 Aug 2005 15:43:18 +0200 + ivybanner (1.3) unstable; urgency=low * Affichage du label 'demos' ou 'tests' sur la page sélectionnée diff --git a/debian/files b/debian/files index a265d5c..3b55446 100644 --- a/debian/files +++ b/debian/files @@ -1 +1 @@ -ivybanner_1.3_all.deb unknown optional +ivybanner_1.4_all.deb unknown optional @@ -495,6 +495,7 @@ sub subdirframe { -activeforeground => $fg, -activebackground => $bg, -selectcolor => $selcolor, + -indicatoron => 0, ); my @buttonattr = (-width => $butw, -height => 4*$coef, -borderwidth => 1, @@ -519,10 +520,10 @@ sub subdirframe { foreach my $file (@file_liste) { my $type; if (-f $path."/".$file) { - print "$file is a file\n"; + #print "$file is a file\n"; $type = 'f'; } elsif (-d $path."/".$file) { - print "$file is a directory\n"; + #print "$file is a directory\n"; $type = 'd'; } #print "file=$file mtime=", (stat("$path/$file"))[10] ,"\n"; @@ -534,11 +535,13 @@ sub subdirframe { next if ($type eq 'd' and $file =~ /^\./); push(@cleanfilelist, [$file, $type]); } - print "\n"; + #print "\n"; + print "maxnb=$maxnb cleanfilelist=", scalar @cleanfilelist, "\n"; my $demosnb = @cleanfilelist; if ($demosnb > $maxnb) { splice(@cleanfilelist, $maxnb-1); } + print "apres cleanfilelist=", scalar @cleanfilelist, "\n"; my $maxc = $max_columns; for my $i (1, 4, 9, 16, 25) { if ($demosnb <= $i) { @@ -578,8 +581,8 @@ sub subdirframe { &on($b, $path."/".$file); }); } else { - $b->configure(-bg => 'gray20', - -activebackground => 'gray20', + $b->configure(-bg => $darkbg, + -activebackground => $darkbg, -text => ($file eq '..') ? "Up" : $file, -command => sub { &off; @@ -600,13 +603,14 @@ sub subdirframe { } } if ($demosnb > $maxnb) { + print "maxnb=$maxnb\n"; + my $many = $demosnb - $maxnb + 1; ($xi, $yi) = ($x + ($c-1)*($dx+$fmw), $y + ($r-1)*($dy+$fmh)); - my $fm_demo = $fm2->Frame(@frameattr)->place(-x => $xi, -y => $yi); - $fm_demo->Radiobutton(@rbuttonattr, - -state => "disabled", - -value => 0, - -text => "and many\nmore...")->place(@placeattr); - push(@subdirbtn, $fm_demo); + my $disa = $fm2->Button(@buttonattr, + -state => "disabled", + -text => "and $many\nmore...", + )->place(-x => $xi, -y => $yi); + push(@subdirbtn, $disa); } @@ -1059,11 +1063,11 @@ display IvyBanner in 640x480 instead of 1024x768. =head1 FILENAME FORMAT -To be detected by ivybanner, the files placed in the demos or tests directory must respect the following name format : +To be detected by ivybanner, the files must be located under the demos or tests directories and must respect the following name format : [string0:]string1:string2 -The label of ivybanner demos buttons will contain string1 and string2. +The label of ivybanner demos buttons will contain string1 and string2. Note the sub-directories whose name starts with letter '.' will not be explored. =head1 FILE FORMAT |