added filter for audio files

git-svn-id: https://svn.helsinki.at/rhimport/trunk@27 7c65635b-ec39-4f67-a626-873dbafdd612

1 files changed, 10 insertions, 1 deletions

diff --git a/rhimport b/rhimport
index aa3cd4a..3b828bc 100755
--- a/rhimport
+++ b/rhimport
@@ -121,7 +121,16 @@ sub set_mode_file_gui()
   my $l_file_playlist = $guixml->get_widget('l_file_playlist');
   $l_file_playlist->set_label("<b>Datei</b>");
   my $filter = Gtk2::FileFilter->new;
-  $filter->add_pattern("*");
+  $filter->add_pattern("*.wav");
+  $filter->add_pattern("*.WAV");
+  $filter->add_pattern("*.ogg");
+  $filter->add_pattern("*.OGG");
+  $filter->add_pattern("*.flac");
+  $filter->add_pattern("*.FLAC");
+  $filter->add_pattern("*.fla");
+  $filter->add_pattern("*.FLA");
+  $filter->add_pattern("*.mp*");
+  $filter->add_pattern("*.MP*");
   my $filechooser = $guixml->get_widget('filechooser');
   $filechooser->set_filter($filter);
 }