From 524762eb79efa427e6ba9aebfeab7687027d0f4f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 12 Nov 2004 17:25:21 +0000 Subject: the color of the categories of steps is better in the theme (it was the only part not defined in the theme but in the code) --- perl-install/install_gtk.pm | 3 +-- perl-install/share/themes-galaxy.rc | 6 ++++++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 48dc018e9..3187a6ac0 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -154,8 +154,7 @@ 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, - $o->{doc} ? $_[0] : '' . $_[0] . '') }; + my $category = sub { gtkset_name(Gtk2::Label->new($_[0]), 'Step-categories') }; gtkpack__(my $vb = Gtk2::VBox->new(0, 3), $steps{inst} = $category->(N("System installation")), ''); foreach (grep { !eval $o->{steps}{$_}{hidden} } @{$o->{orderedSteps}}) { diff --git a/perl-install/share/themes-galaxy.rc b/perl-install/share/themes-galaxy.rc index 1b46c22ea..059eb73a0 100644 --- a/perl-install/share/themes-galaxy.rc +++ b/perl-install/share/themes-galaxy.rc @@ -102,11 +102,17 @@ style "white-on-blue" fg[NORMAL] = "#FFFFFF" } +style "step-categories" +{ + fg[NORMAL] = "gray81" +} + style "background" { bg[NORMAL] = { 0.28, 0.38, 0.66 } } widget "*Steps*" style "white-on-blue" +widget "*Step-categories*" style "step-categories" widget "*logo*" style "white-on-blue" widget "*background*" style "background" -- cgit v1.2.1