summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
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 /perl-install/standalone
parent2b9677b047e18be99b9a47e445634f0bdc6d5696 (diff)
downloaddrakx-7a534fa8d1e05bb1023accb094b80055b948754b.tar
drakx-7a534fa8d1e05bb1023accb094b80055b948754b.tar.gz
drakx-7a534fa8d1e05bb1023accb094b80055b948754b.tar.bz2
drakx-7a534fa8d1e05bb1023accb094b80055b948754b.tar.xz
drakx-7a534fa8d1e05bb1023accb094b80055b948754b.zip
updated
Diffstat (limited to 'perl-install/standalone')
-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 {