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/NEWS | 2 ++ perl-install/ugtk2.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 8b427db82..3bfea24ef 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- reduce banner font size + Version 11.60 - 30 September 2008 - libDrakX: 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