? patch1.dat
Index: Gtk2/Ex/Dialogs/ChoosePreviewFile.pm
===================================================================
RCS file: /cvsroot/gtk2-perl-ex/Gtk2-Ex/Dialogs/lib/Gtk2/Ex/Dialogs/ChoosePreviewFile.pm,v
retrieving revision 1.1
diff -u -r1.1 ChoosePreviewFile.pm
--- Gtk2/Ex/Dialogs/ChoosePreviewFile.pm	10 Feb 2005 20:37:58 -0000	1.1
+++ Gtk2/Ex/Dialogs/ChoosePreviewFile.pm	3 Oct 2005 00:52:31 -0000
@@ -28,7 +28,7 @@
 use Carp;
 use Cwd;
 use Gtk2;
-use Gnome2::VFS;
+use File::Type;
 use Gtk2::Ex::Constants qw( :truth :pad :pack :align :justify );
 
 sub import {
@@ -305,14 +305,12 @@
             }
             $current_preview = undef;
         }
-
-        my ( $rs, $info ) = Gnome2::VFS->get_file_info( $file_name, [ 'get-mime-type', 'force-slow-mime-type' ] );
-        my $mime_type = $info->{mime_type};
+        my $mime_type = File::Type->mime_type( $file_name);
         unless ( $mime_type ) {
             $dialog->set_preview_widget_active( FALSE );
             $preview_hbox->hide_all();
         } else {
-            if ( $info->{mime_type} =~ m!^image/! ) {
+            if ( $mime_type =~ m!^image/! ) {
                 my $pixbuf = new_from_file Gtk2::Gdk::Pixbuf( $file_name );
                 my $pixbuf_s = $pixbuf->scale_simple( 96, 128, 'nearest' );
                 undef( $pixbuf );
@@ -322,7 +320,7 @@
                 $preview_hbox->show_all();
                 $dialog->set_preview_widget_active( TRUE );
             } elsif ( -f $file_name && -r $file_name ) {
-                if ( $info->{mime_type} =~ m!^text/! ) {
+                if ( $mime_type =~ m!^text/! ) {
                     if ( open( PFH, "<" . $file_name ) ) {
                         my @raw = ();
                         for ( my $c = 0; $c < 15; $c++ ) {