diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-06 17:51:29 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:14 +0100 |
| commit | 163c56d3ed7ca7eedd58e5da313740e4ae1afd93 (patch) | |
| tree | 78b81ceca54220739d347d2f915890f20ab42909 /perl-install | |
| parent | d4084cb37b76895097217b506812dc61261b3d92 (diff) | |
| download | drakx-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.pm | 4 |
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] |