diff options
author | Mystery Man <unknown@mandriva.org> | 2002-07-23 11:21:56 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-07-23 11:21:56 +0000 |
commit | 882ed9f801f347b87e162777b296d5be79b8b7ba (patch) | |
tree | b3ee4e9e881f5bda8d243626aac2bea772f25e68 /perl-install/install_steps_newt.pm | |
parent | 127a73d935d78af53d3dadd05d4636f6b717976d (diff) | |
download | drakx-882ed9f801f347b87e162777b296d5be79b8b7ba.tar drakx-882ed9f801f347b87e162777b296d5be79b8b7ba.tar.gz drakx-882ed9f801f347b87e162777b296d5be79b8b7ba.tar.bz2 drakx-882ed9f801f347b87e162777b296d5be79b8b7ba.tar.xz drakx-882ed9f801f347b87e162777b296d5be79b8b7ba.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_8_9mdk'.V1_1_8_9mdk
Diffstat (limited to 'perl-install/install_steps_newt.pm')
-rw-r--r-- | perl-install/install_steps_newt.pm | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm deleted file mode 100644 index 1204c0729..000000000 --- a/perl-install/install_steps_newt.pm +++ /dev/null @@ -1,61 +0,0 @@ -package install_steps_newt; # $Id$ - -use diagnostics; -use strict; -use vars qw(@ISA); - -@ISA = qw(install_steps_interactive interactive::newt); - -#-###################################################################################### -#- misc imports -#-###################################################################################### -use install_steps_interactive; -use interactive::newt; -use install_any; -use devices; -use lang; -use common; - -my $banner = __(); - -sub banner { - my $banner = translate(__("Mandrake Linux Installation %s")); - my $l = first(Newt::GetScreenSize) - length($banner) - length($_[0]) + 1; - Newt::DrawRootText(0, 0, sprintf($banner, ' ' x $l . $_[0])); - Newt::Refresh; -} - -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; - |