From 7a534fa8d1e05bb1023accb094b80055b948754b Mon Sep 17 00:00:00 2001
From: Sebastien Dupont <sdupont@mandriva.com>
Date: Fri, 26 Oct 2001 12:42:43 +0000
Subject: updated

---
 perl-install/standalone/drakfont | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/drakfont')

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 {
-- 
cgit v1.2.1