diff options
author | Mystery Man <unknown@mandriva.org> | 2000-11-08 00:01:16 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2000-11-08 00:01:16 +0000 |
commit | d5c526273db473a7d87a26000585900fc10dda7d (patch) | |
tree | 0fdaabe7a00921b6cc556601b103d344fc7ac781 /perl-install/install_steps_newt.pm | |
parent | 9c164312d4bfff6d93e1c4529de6b992f2bebc44 (diff) | |
download | drakx-backup-do-not-use-d5c526273db473a7d87a26000585900fc10dda7d.tar drakx-backup-do-not-use-d5c526273db473a7d87a26000585900fc10dda7d.tar.gz drakx-backup-do-not-use-d5c526273db473a7d87a26000585900fc10dda7d.tar.bz2 drakx-backup-do-not-use-d5c526273db473a7d87a26000585900fc10dda7d.tar.xz drakx-backup-do-not-use-d5c526273db473a7d87a26000585900fc10dda7d.zip |
This commit was manufactured by cvs2svn to create branch
'unlabeled-1.1.1'.
Diffstat (limited to 'perl-install/install_steps_newt.pm')
-rw-r--r-- | perl-install/install_steps_newt.pm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm index 62db5486b..1383ad372 100644 --- a/perl-install/install_steps_newt.pm +++ b/perl-install/install_steps_newt.pm @@ -11,40 +11,6 @@ use vars qw(@ISA); #-###################################################################################### use install_steps_interactive; use interactive_newt; -use install_any; -use devices; -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; -} - 1; |