summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-14 09:09:10 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-14 09:09:10 +0000
commitcc16ccfa1133afea66400c387b5c436419593b27 (patch)
tree982ea87bf7a11d429c2afd1ddff3b5bd1faa930f /perl-install/ugtk2.pm
parenta7dfda646a1f7e0e09c2c1f6eafde2f71b5a87b1 (diff)
downloaddrakx-cc16ccfa1133afea66400c387b5c436419593b27.tar
drakx-cc16ccfa1133afea66400c387b5c436419593b27.tar.gz
drakx-cc16ccfa1133afea66400c387b5c436419593b27.tar.bz2
drakx-cc16ccfa1133afea66400c387b5c436419593b27.tar.xz
drakx-cc16ccfa1133afea66400c387b5c436419593b27.zip
(get_default_step_items,new,set_default_step_items) add support for default
banner per install step
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm11
1 files 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},