From 163c56d3ed7ca7eedd58e5da313740e4ae1afd93 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 6 Nov 2013 17:51:29 +0100
Subject: fix setting font with Gtk3

---
 perl-install/install/gtk.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index 943b42bdc..d44214913 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -79,7 +79,9 @@ sub load_font {
 
     my $font = lang::l2pango_font($o->{locale}{lang});
     my $s = qq(gtk-font-name = $font);
-    Gtk3::Rc->parse_string($s);
+    my $pl = Gtk3::CssProvider->new;
+    $pl->load_from_data("GtkWindow { font: $font }");
+    my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION);
     # FIXME: this should be done in /mnt too for forked app such as gurpmi{,.addmedia} (mga#67):
     mkdir_p("/.config/gtk-3.0");
     output("/.config/gtk-3.0/settings.ini", qq([Settings]
-- 
cgit v1.2.1