From 6fefda864aecc8e8e1f5d6682bb5a30297729cc5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 30 Sep 2008 14:12:39 +0000 Subject: (Gtk2::Banner->new) reduce banner font size --- 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 8fb37611c..d0efbd497 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1445,7 +1445,7 @@ sub new { $darea->{back_pixbuf} = gtknew('Pixbuf', file => 'banner-background'); my $d_height = $darea->{back_pixbuf}->get_height; $darea->set_size_request(-1, $d_height); - $darea->modify_font(Gtk2::Pango::FontDescription->from_string("Sans 15")); + $darea->modify_font(Gtk2::Pango::FontDescription->from_string("13")); eval { $darea->{icon} = ugtk2::gtkcreate_pixbuf($icon) }; my $blue_part = eval { gtknew('Pixbuf', file => 'banner-blue-part', flip => mygtk2::text_direction_rtl()) }; my $blue_width = $blue_part->get_width; -- cgit v1.2.1