package install_steps_newt; 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 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 doPartitionDisks($$) { my ($o, $hds, $raid) = @_; Newt::Suspend(); foreach (@$hds) { print _("You can now partition your %s hard drive When you are done, don't forget to save using `w'", $_->{device}); print "\n\n"; my $pid = fork or exec "fdisk", devices::make($_->{device}); waitpid($pid, 0); } Newt::Resume(); install_any::getHds($o); $o->ask_mntpoint_s($o->{fstab}); } 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;