From fa496ea97563e3e85b156b25c43e74305151ebf4 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 28 Feb 2003 11:59:30 +0000
Subject: fix theming in --doc mode

---
 perl-install/install_gtk.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_gtk.pm')

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 54b051a35..54185be8f 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -42,7 +42,15 @@ style "white-on-blue"
 style "background"
 {
   bg[NORMAL] = { 0.93, 0.93, 0.93 }
-});
+}
+
+style "background-logo"
+{
+  bg[NORMAL] = { 0.70, 0.70, 0.70 }
+}
+widget "*logo*" style "background-logo"
+
+);
 
 #------------------------------------------------------------------------------
 sub load_rc {
@@ -135,7 +143,8 @@ sub create_steps_window {
     $w->{rwindow}->set_title('skip');
 
     $steps{$_} ||= gtkcreate_pixbuf("steps_$_") foreach qw(on off);
-    my $category = sub { gtkset_markup(Gtk2::Label->new, '<span foreground="gray81">' . $_[0] . '</span>') };
+    my $category = sub { gtkset_markup(Gtk2::Label->new,
+				       $o->{doc} ? $_[0] : '<span foreground="gray81">' . $_[0] . '</span>') };
 
     gtkpack__(my $vb = Gtk2::VBox->new(0, 3), $steps{inst} = $category->(N("System installation")), '');
     foreach (grep { !eval $o->{steps}{$_}{hidden} } @{$o->{orderedSteps}}) {
-- 
cgit v1.2.1