From e83bc8375896def1a8bfecb6320dc7e33d955b4f Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 28 Sep 2007 18:30:50 +0000
Subject: allow interactive::gtk frontends to ask for a directory

---
 perl-install/interactive/gtk.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 5b078b0af..473e3a22a 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -529,7 +529,10 @@ sub create_widget {
 	    $set = sub { $w->set_text($_[0]) if $_[0] ne $w->get_text };
 	    if ($e->{type} eq 'file') {
 		my $button = gtksignal_connect(Gtk2::Button->new_from_stock('gtk-open'), clicked => sub {
-						   my $file = $o->ask_filename({ title => $e->{label} });
+						   my $file = $o->ask_fileW({
+                                                       title => $e->{label},
+                                                       want_a_dir => to_bool($e->{want_a_dir}),
+                                                   });
 						   $set->($file) if $file;
 					       });
 		$real_w = gtkpack_(Gtk2::HBox->new(0,0), 1, $w, 0, $button);
-- 
cgit v1.2.1