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 /perl-install/ugtk3.pm | |
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
Diffstat (limited to 'perl-install/ugtk3.pm')
-rw-r--r-- | perl-install/ugtk3.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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 { |