summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/interactive/gtk.pm2
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,