diff options
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 3 | ||||
| -rw-r--r-- | perl-install/ugtk3.pm | 5 |
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 { |