From 05b5aa47bee78b8b0dc1704b4140b4e181eb59f1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 24 Sep 2008 15:06:51 +0000
Subject: (update_text) split it out of Gtk2::Banner->set_pixmap

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

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 1eb12adc6..11b0beabe 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1426,6 +1426,11 @@ sub set_pixmap {
     my ($darea) = @_;
     return if !$darea->realized;
     ugtk2::set_back_pixbuf($darea, $darea->{back_pixbuf} || gtknew('Pixbuf', file => 'banner-background'));
+    update_text($darea);
+}
+
+sub update_text {
+    my ($darea) = @_;
     $darea->{layout} = $darea->create_pango_layout($darea->{text});
     $darea->{txt_width} = ($darea->{layout}->get_pixel_size)[0];
     $darea->queue_draw;
-- 
cgit v1.2.1