diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 18e7a5773..f93c64cf8 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- set specific icons for summary steps (#32923) + Version 10.4.181 - 29 August 2007, by Thierry Vignaud - fix translating steps titles diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index c7fcb8bf4..a8b9fd76d 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -748,6 +748,7 @@ sub summary { push @l, { group => N("System"), label => N("Timezone"), + banner_icon => 'banner-languages', val => sub { $o->{timezone}{timezone} }, clicked => sub { $timezone_manually_set = $o->configureTimezone(1) || $timezone_manually_set }, }; @@ -795,6 +796,7 @@ sub summary { push @l, { group => N("System"), label => N("Services"), + banner_icon => 'banner-generic', val => sub { require services; my ($l, $activated) = services::services(); @@ -816,6 +818,7 @@ sub summary { push @l, { group => N("Hardware"), label => N("Mouse"), + banner_icon => 'banner-bootL', val => sub { translate($o->{mouse}{type}) . ' ' . translate($o->{mouse}{name}) }, clicked => sub { selectMouse($o, 1); mouse::write($o->do_pkgs, $o->{mouse}) }, }; @@ -829,6 +832,7 @@ sub summary { push @l, { group => N("Hardware"), label => N("Sound card"), + banner_icon => 'banner-generic', val => sub { $device->{driver} && modules::module2description($device->{driver}) || $device->{description}; }, @@ -873,6 +877,7 @@ sub summary { push @l, { group => N("Hardware"), label => N("Graphical interface"), + banner_icon => 'banner-bootL', val => sub { $o->{raw_X} ? Xconfig::various::to_string($o->{raw_X}) : '' }, clicked => sub { configureX($o, 'expert') }, }; |