diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-26 12:42:43 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-26 12:42:43 +0000 |
| commit | 7a534fa8d1e05bb1023accb094b80055b948754b (patch) | |
| tree | 39e1f06a9ec484f02b4a1a503f8b051283cebed8 /perl-install/standalone | |
| parent | 2b9677b047e18be99b9a47e445634f0bdc6d5696 (diff) | |
| download | drakx-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-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 { |