1 files changed, 20 insertions, 2 deletions
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);