summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-09-06 10:40:59 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:37 +0100
commit1d4957dddcbf98c3a985186b8b61be2b3f004b3c (patch)
treed3b6164b227eca09dd852a58ff2c8eb7264d55fe /perl-install/diskdrake
parent807df2a2b558461a2890f9bec0050f0bd974c92e (diff)
downloaddrakx-1d4957dddcbf98c3a985186b8b61be2b3f004b3c.tar
drakx-1d4957dddcbf98c3a985186b8b61be2b3f004b3c.tar.gz
drakx-1d4957dddcbf98c3a985186b8b61be2b3f004b3c.tar.bz2
drakx-1d4957dddcbf98c3a985186b8b61be2b3f004b3c.tar.xz
drakx-1d4957dddcbf98c3a985186b8b61be2b3f004b3c.zip
switch from old RC to CSS for diskdrake
colors were converted with bc: obase=16 *255
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index fa52a3e57..80334ddab 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -45,10 +45,12 @@ notebook current_kind[]
=cut
sub load_theme() {
- my $rc = "/usr/share/libDrakX/diskdrake.rc";
- -r $rc or $rc = dirname(__FILE__) . "/../diskdrake.rc";
- -r $rc or $rc = dirname(__FILE__) . "/../share/diskdrake.rc";
- Gtk3::Rc->parse($rc);
+ my $css = "/usr/share/libDrakX/diskdrake.css";
+ -r $css or $css = dirname(__FILE__) . "/../diskdrake.css";
+ -r $css or $css = dirname(__FILE__) . "/../share/diskdrake.css";
+ my $pl = Gtk3::CssProvider->new;
+ $pl->load_from_path($css);
+ my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION);
}
sub main {