summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-10-26 12:42:43 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-10-26 12:42:43 +0000
commit7a534fa8d1e05bb1023accb094b80055b948754b (patch)
tree39e1f06a9ec484f02b4a1a503f8b051283cebed8
parent2b9677b047e18be99b9a47e445634f0bdc6d5696 (diff)
downloaddrakx-backup-do-not-use-7a534fa8d1e05bb1023accb094b80055b948754b.tar
drakx-backup-do-not-use-7a534fa8d1e05bb1023accb094b80055b948754b.tar.gz
drakx-backup-do-not-use-7a534fa8d1e05bb1023accb094b80055b948754b.tar.bz2
drakx-backup-do-not-use-7a534fa8d1e05bb1023accb094b80055b948754b.tar.xz
drakx-backup-do-not-use-7a534fa8d1e05bb1023accb094b80055b948754b.zip
updated
-rwxr-xr-xperl-install/standalone/drakfont13
1 files changed, 10 insertions, 3 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 5c1528182..511b31491 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -659,9 +659,16 @@ sub font_choice {
sub file_ok_sel {
my ( $widget, $file_selection ) = @_;
my $file_name = $file_selection->get_filename();
- push @install, $file_name;
- $list->add(gtkshow(new Gtk::ListItem($file_name)));
- print ("@install\n");
+ print "nom du rep:".$file_name."\n\n";
+# print "liste complete rep : $_ \n" foreach (@install);
+# print "\n___________\n";
+ if (@install) {
+ grep( $file_name , @install) or push @install, $file_name && $list->add(gtkshow(new Gtk::ListItem($file_name)));
+ }
+ else {
+ push @install, $file_name && $list->add(gtkshow(new Gtk::ListItem($file_name)));
+ }
+# print ("$file_name\n");
}
sub list_remove {