From 5696313ed494fcd2adc199e0ed12f9904b3882da Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Thu, 25 Mar 2010 17:51:10 +0000
Subject: added filter for audio files

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

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);
 }
-- 
cgit v0.10.2