From b21481137d54fb5a37c023985c109d5126f53124 Mon Sep 17 00:00:00 2001
From: Pablo Saratxaga <pablo@mandriva.com>
Date: Thu, 5 Dec 2002 16:07:46 +0000
Subject: made some functions to retrieve pango font namese from lang/charset

---
 perl-install/install_gtk.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 8fcbb1b1f..30378fcf6 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -45,18 +45,23 @@ sub install_theme {
 
     load_rc($_) foreach "themes-$o->{theme}", "install", "themes";
 
+    my $pango_font_name = "";
+    if (my $pango_font = lang::lang2pango_font($o->{lang})) {
+	$pango_font_name_10 = "font_name = \"$pango_font 10\""
+	$pango_font_name_12 = "font_name = \"$pango_font 12\""
+    }
     if (my ($font, $font2) = lang::get_x_fontset($o->{lang}, $::rootwidth < 800 ? 10 : 12)) {
 	$font2 ||= $font;
 	Gtk2::Rc->parse_string(qq(
 style "default-font" 
 {
    fontset = "$font,*"
-   font_name = "Nimbus Sans L 12"
+   $pango_font_name_12
 }
 style "small-font"
 {
    fontset = "$font2,*"
-   font_name = "Nimbus Sans L 10"
+   $pango_font_name_10
 }
 widget "*" style "default-font"
 widget "*Steps*" style "small-font"
-- 
cgit v1.2.1