From 3cfaca7fb9efac159556e25a53940dcd341b5dad Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 17 Nov 2013 12:30:08 +0100
Subject: update API for installer

---
 perl-install/install/steps_gtk.pm | 3 +--
 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 {
-- 
cgit v1.2.1