summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_gtk.pm3
-rw-r--r--perl-install/ugtk3.pm5
2 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 7dc844af2..5ff2a1bf4 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -571,8 +571,7 @@ sub installPackages {
my ($title);
my $pl = $f; $pl =~ s/\.png$/.pl/;
eval(cat_($pl)) if -e $pl;
- $banner->{text} = $title;
- Gtk3::Banner::update_text($banner);
+ Gtk3::Banner::update_text($banner, $title);
}
};
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 24df06e95..a262d1b6e 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1440,8 +1440,9 @@ sub set_style {
# used by install::steps_gtk::installPackages()
sub update_text {
- my ($banner) = @_;
- $banner->queue_draw;
+ my ($banner, $new_text) = @_;
+ $banner->{label}->set_text($new_text);
+ $banner->{label}->queue_draw;
}
sub new {