From d281dba36fb43e8ad129b6e82209c6c2531d4a00 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 28 Sep 2007 20:31:47 +0000 Subject: allow interactive::gtk frontends not to pop wait messages --- perl-install/interactive/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive') 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, -- cgit v1.2.1