home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / install_steps_newt.pm < prev    next >
Encoding:
Perl POD Document  |  2000-01-12  |  932 b   |  51 lines
  1. package install_steps_newt;
  2.  
  3.  
  4.  
  5.  
  6.  
  7. @ISA = qw(install_steps_interactive interactive_newt);
  8.  
  9.  
  10.  
  11.  
  12. use install_steps_interactive;
  13. use interactive_newt;
  14. use common qw(:common);
  15.  
  16. my $banner = __();
  17.  
  18. sub banner {
  19.     my $banner = translate(__("Linux-Mandrake Installation %s"));
  20.     my $l = first(Newt::GetScreenSize) - length($banner) - length($_[0]) + 1;
  21.     Newt::DrawRootText(0, 0, sprintf($banner, ' ' x $l . $_[0]));
  22. }
  23.  
  24. sub new($$) {
  25.     my ($type, $o) = @_;
  26.  
  27.     interactive_newt->new;
  28.  
  29.     banner('');
  30.     Newt::PushHelpLine(_("  <Tab>/<Alt-Tab> between elements  | <Space> selects | <F12> next screen "));
  31.  
  32.     $o->{partitioning}{readonly} = 1; 
  33.  
  34.     (bless {}, ref $type || $type)->SUPER::new($o);
  35. }
  36.  
  37. sub enteringStep {
  38.     my ($o, $step) = @_;
  39.     $o->SUPER::enteringStep($step);
  40.     banner(translate($o->{steps}{$step}{text}));
  41. }
  42.  
  43. sub exitInstall { 
  44.     &install_steps_interactive::exitInstall;
  45.     interactive_newt::end;
  46. }
  47.  
  48.  
  49. 1;
  50.  
  51.