From 9058247387742856b6e360cd9a81125f4dd91b8a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 10 Feb 2005 10:56:12 +0000
Subject: (main) fix FileSelection (inactive & unusable window)

---
 perl-install/mygtk2.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 4fd53b3f4..c1dcb2b0c 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -816,7 +816,13 @@ sub main {
     my $destroyed;
     $window->signal_connect(destroy => sub { $destroyed = 1 });
     $window->show;
-    do { Gtk2->main } while (!$destroyed && $o_verif && !$o_verif->());
+    do { 
+        if ($window->isa('Gtk2::FileSelection')) {
+            $window->run;
+        } else {
+            Gtk2->main;
+        }
+    } while (!$destroyed && $o_verif && !$o_verif->());
     may_destroy($window);
     flush();
 }
-- 
cgit v1.2.1