diff options
Diffstat (limited to 'perl-install/install')
-rw-r--r-- | perl-install/install/NEWS | 2 | ||||
-rw-r--r-- | perl-install/install/gtk.pm | 6 | ||||
-rw-r--r-- | perl-install/install/share/gtk.css | 6 | ||||
-rw-r--r-- | perl-install/install/share/list.xml | 6 |
4 files changed, 19 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index b074a7bc8..a8188bf9d 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- make CSD support available to forked processes (mga#18332) + Version 17.28 - 26 April 2016 - adapt to new brltty diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index c83b8e6a7..686e31e2f 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -83,7 +83,6 @@ sub load_font { $pl->load_from_data("GtkWindow { font: $font }"); 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] $s )); @@ -195,6 +194,11 @@ sub init_gtk { symlink("/tmp/stage2/etc/$_", "/etc/$_") foreach qw(gtk-3.0 pango fonts); + # Custom _global_ CSS: + mkdir_p("/.config/gtk-3.0"); # TODO/FIXME: set ENV{HOME} ? + # FIXME: this should be done in /mnt too for forked app such as gurpmi{,.addmedia} (mga#67): + symlinkf('/usr/lib/libDrakX/gtk.css', '/.config/gtk-3.0/gtk.css'); + if ($o->{vga16}) { #- inactivate antialias in VGA16 because it makes fonts look worse output('/tmp/fonts.conf', diff --git a/perl-install/install/share/gtk.css b/perl-install/install/share/gtk.css new file mode 100644 index 000000000..71690dfcc --- /dev/null +++ b/perl-install/install/share/gtk.css @@ -0,0 +1,6 @@ +/* CSD for windows: */ +window, .window-frame { + border: solid 1px alpha(black, 0.75); + padding: 20px; +} + diff --git a/perl-install/install/share/list.xml b/perl-install/install/share/list.xml index 31b470d2c..617f360f4 100644 --- a/perl-install/install/share/list.xml +++ b/perl-install/install/share/list.xml @@ -643,6 +643,12 @@ dbus-uuidgen > share/machine-id; echo machine-id </from> </to> + + <!-- custom CSD CSS --> + <to dir="/usr/lib/libDrakX"> <!-- /.config/gtk-3.0 is RO --> + gtk.css <!-- symlinked in --> + </to> + </from> <from dir="../pixmaps"> |