diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-09-19 15:43:20 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-19 15:43:20 +0000 |
commit | cfb190dff2446d3e128abb2404164de7c997246b (patch) | |
tree | 13ef0e088b016c960a483e5abc54ba3ea0138721 /perl-install/ugtk2.pm | |
parent | 2a05424e4eec7c7c1de28ef673978f89f5b6f82c (diff) | |
download | drakx-cfb190dff2446d3e128abb2404164de7c997246b.tar drakx-cfb190dff2446d3e128abb2404164de7c997246b.tar.gz drakx-cfb190dff2446d3e128abb2404164de7c997246b.tar.bz2 drakx-cfb190dff2446d3e128abb2404164de7c997246b.tar.xz drakx-cfb190dff2446d3e128abb2404164de7c997246b.zip |
(Gtk2::Banner->new) set name on Banner's DrawingArea for styling
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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")); |