diff options
| -rw-r--r-- | perl-install/install_gtk.pm | 13 |
1 files changed, 11 insertions, 2 deletions
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}}) { |