diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index d9e9ce5f8..4b0fd244d 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,4 +1,5 @@ - allow interactive::gtk frontends to ask for a directory + - allow interactive::gtk frontends not to pop wait messages Version 10.4.221 - 28 September 2007, by Olivier "blino" Blin diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 473e3a22a..2315556fd 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -838,7 +838,7 @@ sub wait_messageW { my $Window = gtknew('MagicWindow', title => $title, - pop_it => !$::isInstall, + pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : !$::isInstall, modal => 1, $::isInstall ? (banner => Gtk2::Banner->new((get_default_step_items())[0], $message)) : (), no_Window_Manager => exists $o->{no_Window_Manager} ? $o->{no_Window_Manager} : !$::isStandalone, |