summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/gtk.pm6
-rw-r--r--perl-install/install/share/gtk.css6
-rw-r--r--perl-install/install/share/list.xml6
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">