From 0b93b8f4544d1a8698c3ec1c2b1d416bad91a0eb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 20 Apr 2005 14:50:03 +0000 Subject: (font_choice) filter file list so that only fonts are displayed --- perl-install/standalone/drakfont | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/drakfont') 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))) { -- cgit v1.2.1