diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-08-27 03:37:29 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-08-27 03:37:29 +0000 |
| commit | c108018c90c22c17af02cfff9d58517f85f15748 (patch) | |
| tree | b6d682352a484a932c9f18417980188fd9765ca0 /perl-install/ugtk2.pm | |
| parent | 93239e157bfbe144421660cf1d21fe611447c21a (diff) | |
| download | drakx-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.pm | 2 |
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()), |