diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-04-20 14:50:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-04-20 14:50:03 +0000 |
| commit | 0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb (patch) | |
| tree | b86282f3aa8fdc64f2223957f6b65b1a05595a46 /perl-install/standalone | |
| parent | 119a212b839ae94a7c0a67e0372776569ee57bbd (diff) | |
| download | drakx-0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb.tar drakx-0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb.tar.gz drakx-0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb.tar.bz2 drakx-0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb.tar.xz drakx-0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb.zip | |
(font_choice) filter file list so that only fonts are displayed
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakfont | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 3422d73ca..da9653de9 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -225,9 +225,11 @@ sub search_windows_font() { 1; } +my @font_extensions = qw(ttf pfa pfb pcf pcf.gz pfm gsf); + sub is_a_font($) { my ($file) = @_; - any { $file =~ /\Q.$_\E$/i } qw(ttf pfa pfb pcf pcf.gz pfm gsf); + any { $file =~ /\Q.$_\E$/i } @font_extensions; } # Optimisation de cette etape indispensable @@ -588,6 +590,12 @@ sub font_choice() { $file_dialog = Gtk2::FileChooserDialog->new(N("File Selection"), $window1->{real_window}, 'open', N("Cancel") => 'cancel', N("Ok") => 'ok'); # 'select_folder' $file_dialog->set_select_multiple(1); + my $filter = Gtk2::FileFilter->new; + $filter->set_name(N("Fonts")); + $filter->add_pattern("*.$_") foreach @font_extensions; + $file_dialog->add_filter($filter); + $file_dialog->set_filter($filter); + $file_dialog->show; while (my $answer = $file_dialog->run) { if (member($answer, qw(cancel delete-event))) { |