summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-02-10 10:56:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-02-10 10:56:12 +0000
commit9058247387742856b6e360cd9a81125f4dd91b8a (patch)
treec3c0b3694b346d261bf4fb27c8d7220a5f99f475 /perl-install/mygtk2.pm
parent1fc428dbeb71c4b0dc34fe0ec4b7ec29304b5b43 (diff)
downloaddrakx-9058247387742856b6e360cd9a81125f4dd91b8a.tar
drakx-9058247387742856b6e360cd9a81125f4dd91b8a.tar.gz
drakx-9058247387742856b6e360cd9a81125f4dd91b8a.tar.bz2
drakx-9058247387742856b6e360cd9a81125f4dd91b8a.tar.xz
drakx-9058247387742856b6e360cd9a81125f4dd91b8a.zip
(main) fix FileSelection (inactive & unusable window)
Diffstat (limited to 'perl-install/mygtk2.pm')
-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();
}