From cc16ccfa1133afea66400c387b5c436419593b27 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 14 Aug 2007 09:09:10 +0000
Subject: (get_default_step_items,new,set_default_step_items) add support for
 default banner per install step

---
 perl-install/ugtk2.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index debad12fa..d156bc03d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -698,6 +698,13 @@ sub string_width {
 }
 
 
+my ($def_step_icon, $def_step_title);
+sub set_default_step_items {
+    ($def_step_icon, $def_step_title) = @_;
+}
+
+sub get_default_step_items { ($def_step_icon, $def_step_title) }
+
 # -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
 #                 toplevel window creation helper
 #
@@ -713,13 +720,13 @@ sub new {
     my $o = bless { %opts }, $type;
     while (my $e = shift @tempory::objects) { $e->destroy }
 
-    my $icon = find { _find_imgfile($_) } $opts{icon}, 'banner-generic-ad';
+    my $icon = find { _find_imgfile($_) } $opts{icon}, (get_default_step_items())[0], 'banner-generic-ad';
     my $banner_title = $opts{banner_title};
     my $window = gtknew(
 	'MagicWindow',
 	title => $title || '',
 	pop_it => $o->{pop_it},
-	$::isInstall && $icon ? (banner => Gtk2::Banner->new($icon, $title)) : (),
+	$::isInstall ? (banner => Gtk2::Banner->new($banner_title ? ($icon, $title) : get_default_step_items())) : (),
 	$::isStandalone && $banner_title && $icon ? (banner => Gtk2::Banner->new($icon, $banner_title)) : (),
 	child => gtknew('VBox'),
 	width => $opts{width}, height => $opts{height}, default_width => $opts{default_width}, default_height => $opts{default_height}, 
-- 
cgit v1.2.1