From ed76955e239d467e996ea3d20e8ae14c13db0253 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Mar 2000 17:30:36 +0000
Subject: no_comment

---
 perl-install/install_steps_newt.pm | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_newt.pm')

diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index b35d47e9d..015de1c05 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -11,6 +11,8 @@ use vars qw(@ISA);
 #-######################################################################################
 use install_steps_interactive;
 use interactive_newt;
+use install_any;
+use devices;
 use common qw(:common);
 
 my $banner = __();
@@ -29,11 +31,27 @@ sub new($$) {
     banner('');
     Newt::PushHelpLine(_("  <Tab>/<Alt-Tab> between elements  | <Space> selects | <F12> next screen "));
 
-    $o->{partitioning}{readonly} = 1; #- needed til diskdrake is graphic only...
-
     (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);
-- 
cgit v1.2.1