summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-17 12:30:08 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:30:18 +0100
commit3cfaca7fb9efac159556e25a53940dcd341b5dad (patch)
treef9dd6b3f8793623ed8eecb8500b5dd67c0e9c1b9
parentad02d01dbed0bc2717eb1bf057455e95255d2d32 (diff)
downloaddrakx-3cfaca7fb9efac159556e25a53940dcd341b5dad.tar
drakx-3cfaca7fb9efac159556e25a53940dcd341b5dad.tar.gz
drakx-3cfaca7fb9efac159556e25a53940dcd341b5dad.tar.bz2
drakx-3cfaca7fb9efac159556e25a53940dcd341b5dad.tar.xz
drakx-3cfaca7fb9efac159556e25a53940dcd341b5dad.zip
update API for installer
-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 {