diff options
Diffstat (limited to 'perl-install/install_steps_newt.pm')
-rw-r--r-- | perl-install/install_steps_newt.pm | 46 |
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; |