From cfb190dff2446d3e128abb2404164de7c997246b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 19 Sep 2008 15:43:20 +0000
Subject: (Gtk2::Banner->new) set name on Banner's DrawingArea for styling

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index b49529b9c..9bd42f9c2 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1437,7 +1437,7 @@ sub set_pixmap {
 sub new {
     my ($_class, $icon, $text, $o_options) = @_;
 
-    my $darea = gtknew('DrawingArea');
+    my $darea = gtknew('DrawingArea', widget_name => 'Banner');
     my $d_height = 54;
     $darea->set_size_request(-1, $d_height);
     $darea->modify_font(Gtk2::Pango::FontDescription->from_string("Sans Bold 14"));
-- 
cgit v1.2.1