diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-08-14 09:09:10 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-14 09:09:10 +0000 |
| commit | cc16ccfa1133afea66400c387b5c436419593b27 (patch) | |
| tree | 982ea87bf7a11d429c2afd1ddff3b5bd1faa930f /perl-install/ugtk2.pm | |
| parent | a7dfda646a1f7e0e09c2c1f6eafde2f71b5a87b1 (diff) | |
| download | drakx-backup-do-not-use-cc16ccfa1133afea66400c387b5c436419593b27.tar drakx-backup-do-not-use-cc16ccfa1133afea66400c387b5c436419593b27.tar.gz drakx-backup-do-not-use-cc16ccfa1133afea66400c387b5c436419593b27.tar.bz2 drakx-backup-do-not-use-cc16ccfa1133afea66400c387b5c436419593b27.tar.xz drakx-backup-do-not-use-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.pm | 11 |
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}, |