From 3e0d8ba724bd6f97a85d5960be6a864be5cd04d1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 24 Jul 2008 17:33:36 +0000 Subject: stop set icons for banners --- perl-install/any.pm | 7 ------- perl-install/authentication.pm | 1 - perl-install/install/steps_gtk.pm | 6 +++--- perl-install/install/steps_interactive.pm | 9 +-------- 4 files changed, 4 insertions(+), 19 deletions(-) (limited to 'perl-install') 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"), -- cgit v1.2.1