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/NEWS | 1 + perl-install/interactive/gtk.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') 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, -- cgit v1.2.1