summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-07-24 17:33:36 +0000
committerThierry Vignaud <tv@mandriva.org>2008-07-24 17:33:36 +0000
commit3e0d8ba724bd6f97a85d5960be6a864be5cd04d1 (patch)
tree0c8954417861804d5b4c0490e85514afc1efc90d /perl-install
parent976c84da2fec4cc43ac3973dda51aa77ce924639 (diff)
downloaddrakx-3e0d8ba724bd6f97a85d5960be6a864be5cd04d1.tar
drakx-3e0d8ba724bd6f97a85d5960be6a864be5cd04d1.tar.gz
drakx-3e0d8ba724bd6f97a85d5960be6a864be5cd04d1.tar.bz2
drakx-3e0d8ba724bd6f97a85d5960be6a864be5cd04d1.tar.xz
drakx-3e0d8ba724bd6f97a85d5960be6a864be5cd04d1.zip
stop set icons for banners
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm7
-rw-r--r--perl-install/authentication.pm1
-rw-r--r--perl-install/install/steps_gtk.pm6
-rw-r--r--perl-install/install/steps_interactive.pm9
4 files changed, 4 insertions, 19 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index e8b4a98be..1b83e7e71 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -349,7 +349,6 @@ sub setupBootloader__mbr_or_not {
my $default = find { $_->[1] eq $b->{boot} } @l;
$in->ask_from_({ title => N("LILO/grub Installation"),
- icon => 'banner-bootL',
messages => N("Where do you want to install the bootloader?"),
interactive_help_id => 'setupBootloaderBeginner',
},
@@ -388,7 +387,6 @@ sub setupBootloader__general {
$in->ask_from_({ #messages => N("Bootloader main options"),
title => N("Bootloader main options"),
- icon => 'banner-bootL',
interactive_help_id => 'setupBootloader',
}, [
#title => N("Bootloader main options"),
@@ -421,7 +419,6 @@ sub setupBootloader__general {
$b->{boot} = $partition_table::mac::bootstrap_part;
$in->ask_from_({ messages => N("Bootloader main options"),
title => N("Bootloader main options"),
- icon => 'banner-bootL',
interactive_help_id => 'setupYabootGeneral',
}, [
{ label => N("Bootloader to use"), val => \$b->{method}, list => \@method_choices, format => \&bootloader::method2text },
@@ -784,7 +781,6 @@ sub ask_user_and_root {
};
my $ret = $in->ask_from_(
{ title => N("User management"),
- icon => 'banner-adduser',
interactive_help_id => 'addUser',
if_($::isInstall && $superuser, cancel => ''),
focus_first => 1,
@@ -916,7 +912,6 @@ sub acceptLicense {
my $r = $::testing ? 'Accept' : 'Refuse';
$o->ask_from_({ title => N("License agreement"),
- icon => 'banner-license',
focus_first => 1,
cancel => N("Quit"),
messages => formatAlaTeX(messages::main_license() . "\n\n\n" . messages::warning_about_patents()),
@@ -947,7 +942,6 @@ sub selectLanguage_install {
my $common = { messages => N("Please choose a language to use."),
title => N("Language choice"),
- icon => 'banner-languages.png',
interactive_help_id => 'selectLanguage' };
my $lang = $locale->{lang};
@@ -1069,7 +1063,6 @@ sub selectCountry {
$in->ask_from_(
{ title => N("Country / Region"),
- icon => 'banner-languages',
messages => N("Please choose your country."),
interactive_help_id => 'selectCountry',
if_(@best, advanced_messages => N("Here is the full list of available countries")),
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 0adf20f84..2ea188649 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -224,7 +224,6 @@ sub ask_root_password_and_authentication {
$in->ask_from_({
title => N("Authentication"),
messages => N("Set administrator (root) password"),
- icon => 'banner-pw',
advanced_label => N("Authentication method"),
advanced_messages => kind2description(@kinds),
interactive_help_id => "setRootPassword",
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index a7807e036..140257649 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -257,7 +257,7 @@ sub reallyChooseDesktop {
sub reallyChooseGroups {
my ($o, $size_to_display, $individual, $_compssUsers) = @_;
- my $w = ugtk2->new(N("Package Group Selection"), icon => 'banner-sys');
+ my $w = ugtk2->new(N("Package Group Selection"));
my $w_size = gtknew('Label', text => &$size_to_display);
my $entry = sub {
@@ -474,7 +474,7 @@ sub installPackages {
my ($current_total_size, $last_size, $nb, $total_size, $last_dtime, $_trans_progress_total);
local $::noborderWhenEmbedded = 1;
- my $w = ugtk2->new(N("Installing"), icon => 'banner-sys');
+ my $w = ugtk2->new(N("Installing"));
state $show_advertising;
my $pkg_log_widget = gtknew('TextView', editable => 0);
@@ -589,7 +589,7 @@ sub installPackages {
sub summary_prompt {
my ($o, $l, $check_complete) = @_;
- my $w = ugtk2->new(N("Summary"), icon => 'banner-summary');
+ my $w = ugtk2->new(N("Summary"));
my $set_entry_labels;
my (@table, @widget_list);
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 073fd1d6b..329765161 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -93,7 +93,6 @@ sub selectKeyboard {
my $ext_keyboard = my $KEYBOARD = $o->{keyboard}{KEYBOARD};
$o->ask_from_(
{ title => N("Keyboard"),
- icon => 'banner-languages',
messages => N("Please choose your keyboard layout."),
interactive_help_id => 'selectKeyboard',
advanced_messages => N("Here is the full list of available keyboards"),
@@ -743,7 +742,7 @@ sub installUpdates {
return;
}
- $o->ask_yesorno_({ title => N("Updates"), icon => 'banner-update', messages => formatAlaTeX(
+ $o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(
N("You now have the opportunity to download updated packages. These packages
have been updated after the distribution was released. They may
contain security or bug fixes.
@@ -851,7 +850,6 @@ 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 },
};
@@ -899,7 +897,6 @@ sub summary {
push @l, {
group => N("System"),
label => N("Services"),
- banner_icon => 'banner-generic-ad',
val => sub {
require services;
my ($l, $activated) = services::services();
@@ -921,7 +918,6 @@ 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}) },
};
@@ -935,7 +931,6 @@ sub summary {
push @l, {
group => N("Hardware"),
label => N("Sound card"),
- banner_icon => 'banner-generic-ad',
val => sub {
$device->{driver} && modules::module2description($device->{driver}) || $device->{description};
},
@@ -968,7 +963,6 @@ 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') },
};
@@ -1148,7 +1142,6 @@ Do you really want to quit now?"), 0);
$o->ask_from_no_check(
{
title => N("Congratulations"),
- icon => 'banner-exit',
messages => formatAlaTeX(messages::install_completed()),
interactive_help_id => 'exitInstall',
ok => $::local_install ? N("Quit") : N("Reboot"),