diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-10 10:56:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-10 10:56:12 +0000 |
| commit | 9058247387742856b6e360cd9a81125f4dd91b8a (patch) | |
| tree | c3c0b3694b346d261bf4fb27c8d7220a5f99f475 /perl-install/mygtk2.pm | |
| parent | 1fc428dbeb71c4b0dc34fe0ec4b7ec29304b5b43 (diff) | |
| download | drakx-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.pm | 8 |
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(); } |