diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-07-24 17:32:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-07-24 17:32:32 +0000 |
| commit | ab06e88a367e81769cd8d228dc977a03c79de737 (patch) | |
| tree | 5d64e2ddab9e20f02b23d10893523713a55d020e /perl-install | |
| parent | 927eda26faac35eb9de15d92a7b6de7e51ab4435 (diff) | |
| download | drakx-ab06e88a367e81769cd8d228dc977a03c79de737.tar drakx-ab06e88a367e81769cd8d228dc977a03c79de737.tar.gz drakx-ab06e88a367e81769cd8d228dc977a03c79de737.tar.bz2 drakx-ab06e88a367e81769cd8d228dc977a03c79de737.tar.xz drakx-ab06e88a367e81769cd8d228dc977a03c79de737.zip | |
(new) do not display any banner icon at install time
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 25e60329f..004fb0d44 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -840,7 +840,7 @@ sub wait_messageW { title => $title, pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : !$::isInstall, modal => 1, - $::isInstall ? (banner => Gtk2::Banner->new((get_default_step_items())[0], $message)) : (), + $::isInstall ? (banner => Gtk2::Banner->new('empty-banner', $message)) : (), no_Window_Manager => exists $o->{no_Window_Manager} ? $o->{no_Window_Manager} : !$::isStandalone, if__($::main_window, transient_for => $::main_window), child => gtknew('VBox', padding => 4, border_width => 10, children => [ diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index b14567740..b534be1c7 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -724,7 +724,7 @@ sub new { my $o = bless { %opts }, $type; while (my $e = shift @tempory::objects) { $e->destroy } - my $icon = find { _find_imgfile($_) } $opts{icon}, (get_default_step_items())[0], 'banner-generic-ad'; + my $icon = find { _find_imgfile($_) } $::isInstall ? 'empty-banner' : $opts{icon}; my $banner_title = $opts{banner_title}; my $window = gtknew( 'MagicWindow', |