diff options
| -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', |