summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-06 17:51:29 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:14 +0100
commit163c56d3ed7ca7eedd58e5da313740e4ae1afd93 (patch)
tree78b81ceca54220739d347d2f915890f20ab42909 /perl-install
parentd4084cb37b76895097217b506812dc61261b3d92 (diff)
downloaddrakx-163c56d3ed7ca7eedd58e5da313740e4ae1afd93.tar
drakx-163c56d3ed7ca7eedd58e5da313740e4ae1afd93.tar.gz
drakx-163c56d3ed7ca7eedd58e5da313740e4ae1afd93.tar.bz2
drakx-163c56d3ed7ca7eedd58e5da313740e4ae1afd93.tar.xz
drakx-163c56d3ed7ca7eedd58e5da313740e4ae1afd93.zip
fix setting font with Gtk3
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/gtk.pm4
1 files changed, 3 insertions, 1 deletions
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]