summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm2
-rw-r--r--perl-install/ugtk2.pm2
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',