summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-08-27 03:37:29 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-08-27 03:37:29 +0000
commitc108018c90c22c17af02cfff9d58517f85f15748 (patch)
treeb6d682352a484a932c9f18417980188fd9765ca0 /perl-install/ugtk2.pm
parent93239e157bfbe144421660cf1d21fe611447c21a (diff)
downloaddrakx-c108018c90c22c17af02cfff9d58517f85f15748.tar
drakx-c108018c90c22c17af02cfff9d58517f85f15748.tar.gz
drakx-c108018c90c22c17af02cfff9d58517f85f15748.tar.bz2
drakx-c108018c90c22c17af02cfff9d58517f85f15748.tar.xz
drakx-c108018c90c22c17af02cfff9d58517f85f15748.zip
(new) add a banner at install time
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a3e68e1f8..5805590a7 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -845,10 +845,12 @@ 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 $window = gtknew(
'MagicWindow',
title => $title || '',
pop_it => $o->{pop_it},
+ if_($::isInstall, banner => Gtk2::Banner->new($icon, $title)),
child => gtknew('VBox'),
modal => $grab || $o->{grab} || $o->{modal},
if_(!$::isInstall, icon_no_error => wm_icon()),