1 files changed, 45 insertions, 1 deletions
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index 1383ad372..7fd1cab1f 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -1,4 +1,4 @@
-package install_steps_newt;
+package install_steps_newt; # $Id$
 
 use diagnostics;
 use strict;
@@ -11,6 +11,50 @@ use vars qw(@ISA);
 #-######################################################################################
 use install_steps_interactive;
 use interactive_newt;
+use install_any;
+use devices;
+use lang;
+use common qw(:common);
+
+my $banner = __();
+
+sub banner {
+    my $banner = translate(__("Linux-Mandrake Installation %s"));
+    my $l = first(Newt::GetScreenSize) - length($banner) - length($_[0]) + 1;
+    Newt::DrawRootText(0, 0, sprintf($banner, ' ' x $l . $_[0]));
+}
+
+sub new($$) {
+    my ($type, $o) = @_;
+
+    interactive_newt->new;
+
+    banner('');
+    Newt::PushHelpLine(_("  <Tab>/<Alt-Tab> between elements  | <Space> selects | <F12> next screen "));
+
+    (bless {}, ref $type || $type)->SUPER::new($o);
+}
+
+sub enteringStep {
+    my ($o, $step) = @_;
+    $o->SUPER::enteringStep($step);
+    banner(translate($o->{steps}{$step}{text}));
+}
+
+sub exitInstall { 
+    &install_steps_interactive::exitInstall;
+    interactive_newt::end;
+}
+
+#-######################################################################################
+#- Steps Functions
+#-######################################################################################
+sub selectLanguage {
+    my ($o) = @_;
+    $o->SUPER::selectLanguage;
+    lang::load_console_font($o->{lang});
+}
+
 
 1;