From 21f296aacb5ee8f1f2c743679519ad0f0ed62ffd Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Aug 2008 09:35:32 +0000 Subject: (new,wait_messageW) do not use Banners anymore in order to render titles at install time --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index eef2efb81..d7165e98a 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -732,10 +732,10 @@ sub new { 'MagicWindow', title => $title || '', pop_it => $o->{pop_it}, - $::isInstall ? (banner => Gtk2::Banner->new($icon, $title || (get_default_step_items()))) : (), + $::isInstall ? (banner => gtknew('Title1', text => $title || get_default_step_items(), widget_name => 'Banner')) : (), $::isStandalone && $banner_title && $icon ? (banner => Gtk2::Banner->new($icon, $banner_title)) : (), width => $opts{width}, height => $opts{height}, default_width => $opts{default_width}, default_height => $opts{default_height}, - modal => !(!$o->{pop_it} && $::isInstall) && ($opts{modal} || $grab || $o->{grab}) || $o->{modal}, + modal => (!$o->{pop_it} && !$::isInstall) && ($opts{modal} || $grab || $o->{grab}) || $o->{modal}, no_Window_Manager => exists $opts{no_Window_Manager} ? $opts{no_Window_Manager} : !$::isStandalone, if_(!$::isInstall, icon_no_error => wm_icon()), if_($o->{transient}, transient_for => $o->{transient}), -- cgit v1.2.1