diff options
| -rwxr-xr-x | perl-install/standalone/drakfont | 13 |
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 { |