diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-17 12:30:08 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:30:18 +0100 |
| commit | 3cfaca7fb9efac159556e25a53940dcd341b5dad (patch) | |
| tree | f9dd6b3f8793623ed8eecb8500b5dd67c0e9c1b9 | |
| parent | ad02d01dbed0bc2717eb1bf057455e95255d2d32 (diff) | |
| download | drakx-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.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 { |