diff options
| -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] |