diff options
-rw-r--r-- | perl-install/install_gtk.pm | 6 | ||||
-rw-r--r-- | perl-install/install_steps_gtk.pm | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index b1cf13aeb..7bc3e725a 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -197,10 +197,12 @@ sub create_logo_window { } #------------------------------------------------------------------------------ -sub init_gtk() { +sub init_gtk { + my ($o) = @_; + symlink("/tmp/stage2/etc/$_", "/etc/$_") foreach qw(gtk-2.0 pango fonts); - if (!listlength(cat_('/proc/fb'))) { + if ($o->{vga16}) { #- inactivate antialias in VGA16 because it makes fonts look worse output('/tmp/fonts.conf', q(<fontconfig> diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 9279e498c..77f4b1829 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -135,7 +135,7 @@ sub new($$) { } OK: $ENV{DISPLAY} = $wanted_DISPLAY; - install_gtk::init_gtk(); + install_gtk::init_gtk($o); install_gtk::init_sizes(); install_gtk::install_theme($o); install_gtk::create_logo_window($o); |