From 1d4957dddcbf98c3a985186b8b61be2b3f004b3c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 6 Sep 2013 10:40:59 +0200 Subject: switch from old RC to CSS for diskdrake colors were converted with bc: obase=16 *255 --- perl-install/diskdrake/hd_gtk.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install/diskdrake') 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 { -- cgit v1.2.1