From 0b690781203ed2113d85e5a53c4d260847c25387 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 3 Sep 2003 16:04:49 +0000
Subject: - 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

---
 perl-install/install_steps_stdio.pm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

(limited to 'perl-install/install_steps_stdio.pm')

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;
-- 
cgit v1.2.1