From 1f57bfdd5569492fc1caf81cfa8a565b47f02fb9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 30 Aug 2007 13:02:55 +0000
Subject: (summary) set specific icons for summary steps (#32923)

---
 perl-install/install/NEWS                 | 2 ++
 perl-install/install/steps_interactive.pm | 5 +++++
 2 files changed, 7 insertions(+)

(limited to 'perl-install')

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') }, 
     };
-- 
cgit v1.2.1