From b78d3d24917c5f61140c7833d3b468a894d46e23 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 19 Sep 2008 16:07:06 +0000
Subject: (Gtk2::Banner->new, set_pixmap) keep around the background pixbuf
 (needed for next commit)

---
 perl-install/ugtk2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 155db3086..27ede1ffa 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1427,7 +1427,7 @@ use ugtk2 qw(:helpers :wrappers);
 sub set_pixmap {
     my ($darea) = @_;
     return if !$darea->realized;
-    ugtk2::set_back_pixbuf($darea, gtknew('Pixbuf', file => 'banner-background'));
+    ugtk2::set_back_pixbuf($darea, $darea->{back_pixbuf});
     $darea->{layout} = $darea->create_pango_layout($darea->{text});
     $darea->{txt_width} = ($darea->{layout}->get_pixel_size)[0];
     $darea->queue_draw;
@@ -1439,6 +1439,7 @@ sub new {
 
     mygtk2::import_style_ressources();
     my $darea = gtknew('DrawingArea', widget_name => 'Banner');
+    $darea->{back_pixbuf} = gtknew('Pixbuf', file => 'banner-background');
     my $d_height = 54;
     $darea->set_size_request(-1, $d_height);
     $darea->modify_font(Gtk2::Pango::FontDescription->from_string("Sans 15"));
-- 
cgit v1.2.1