summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm8
1 files changed, 7 insertions, 1 deletions
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();
}