diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-09-06 10:40:59 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:37 +0100 |
| commit | 1d4957dddcbf98c3a985186b8b61be2b3f004b3c (patch) | |
| tree | d3b6164b227eca09dd852a58ff2c8eb7264d55fe /perl-install/diskdrake/hd_gtk.pm | |
| parent | 807df2a2b558461a2890f9bec0050f0bd974c92e (diff) | |
| download | drakx-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/hd_gtk.pm')
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 10 |
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 { |