summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-03 16:04:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-03 16:04:49 +0000
commit0b690781203ed2113d85e5a53c4d260847c25387 (patch)
tree73eefce0c3865730d9bd5f31d52928ce5dadf25e /perl-install
parent2602c854c769e2b70bdf18579f6348b0496bc09f (diff)
downloaddrakx-backup-do-not-use-0b690781203ed2113d85e5a53c4d260847c25387.tar
drakx-backup-do-not-use-0b690781203ed2113d85e5a53c4d260847c25387.tar.gz
drakx-backup-do-not-use-0b690781203ed2113d85e5a53c4d260847c25387.tar.bz2
drakx-backup-do-not-use-0b690781203ed2113d85e5a53c4d260847c25387.tar.xz
drakx-backup-do-not-use-0b690781203ed2113d85e5a53c4d260847c25387.zip
- move call to ->charsetChanged from install_steps_interactive to install_steps
so that we can use it in install_steps_auto_install_non_interactive - don't overload ->selectLanguage to call lang::load_console_font(), overload ->charsetChanged instead
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/install_steps_auto_install.pm11
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/install_steps_newt.pm15
-rw-r--r--perl-install/install_steps_stdio.pm14
5 files changed, 17 insertions, 27 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index a4ab012fa..62e1f699c 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -114,6 +114,8 @@ sub selectLanguage {
keyboard::setup($o->{keyboard}) if !$::live;
}
+ $o->charsetChanged;
+
addToBeDone {
lang::write_langs($o->{prefix}, $o->{locale}{langs});
} 'formatPartitions' unless $::g_auto_install;
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index a4a92f1e3..e83b34267 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -94,6 +94,11 @@ sub wait_message {
my ($_o, $_title, $_message) = @_;
}
+sub charsetChanged {
+ my ($o) = @_;
+ lang::load_console_font($o->{locale});
+}
+
sub errorInStep {
my ($_o, $_err) = @_;
print "error :(\n";
@@ -107,12 +112,6 @@ sub errorInStep {
#-######################################################################################
#- Steps Functions
#-######################################################################################
-sub selectLanguage {
- my ($o) = @_;
- $o->install_steps::selectLanguage;
- lang::load_console_font($o->{locale});
-}
-
sub installPackages {
my ($o, $packages) = @_;
catch_cdie { $o->install_steps::installPackages($packages) } sub { print formatError($@), "\n"; 1 }
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index fa88007a2..b431c1bf4 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -59,8 +59,6 @@ sub selectLanguage {
$o->{locale}{lang} = any::selectLanguage($o, $o->{locale}{lang}, $o->{locale}{langs} ||= {});
install_steps::selectLanguage($o);
- $o->charsetChanged;
-
if ($o->isa('interactive::gtk')) {
$o->ask_warn('', formatAlaTeX(
"If you see this message it is because you chose a language for
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index 36c6ec8cf..2b01dc82c 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -35,6 +35,11 @@ sub new {
(bless {}, ref($type) || $type)->SUPER::new($o);
}
+sub charsetChanged {
+ my ($o) = @_;
+ lang::load_console_font($o->{locale});
+}
+
sub enteringStep {
my ($o, $step) = @_;
$o->SUPER::enteringStep($step);
@@ -46,15 +51,5 @@ sub exitInstall {
interactive::newt::end();
}
-#-######################################################################################
-#- Steps Functions
-#-######################################################################################
-sub selectLanguage {
- my ($o) = @_;
- $o->SUPER::selectLanguage;
- lang::load_console_font($o->{locale});
-}
-
-
1;
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index 223c2f2b5..ac9408b3c 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -17,6 +17,11 @@ sub new($$) {
(bless {}, ref($type) || $type)->SUPER::new($o);
}
+sub charsetChanged {
+ my ($o) = @_;
+ lang::load_console_font($o->{locale});
+}
+
sub enteringStep {
my ($o, $step) = @_;
print N("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
@@ -28,13 +33,4 @@ sub leavingStep {
print "--------\n";
}
-#-######################################################################################
-#- Steps Functions
-#-######################################################################################
-sub selectLanguage {
- my ($o, $first_time) = @_;
- $o->SUPER::selectLanguage($first_time);
- lang::load_console_font($o->{locale});
-}
-
1;