diff options
Diffstat (limited to 'perl-install/install_interactive.pm')
| -rw-r--r-- | perl-install/install_interactive.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 115275634..da5939c34 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -27,6 +27,8 @@ You can find some information about them at: %s", join(", ", @l))) if @l; sub partition_with_diskdrake { my ($o, $hds, $nowizard) = @_; my $ok; + + $o->set_help('partition_with_diskdrake'); do { $ok = 1; require diskdrake; @@ -98,7 +100,9 @@ sub partitionWizardSolutions { $solutions{resize_fat} = [ 6 - @fats, _("Use the free space on the Windows partition"), sub { + $o->set_help('resizeFATChoose'); my $part = $o->ask_from_listf('', _("Which partition do you want to resize?"), \&partition_table_raw::description, \@ok_forloopback) or return; + $o->set_help('resizeFATWait'); my $w = $o->wait_message(_("Resizing"), _("Computing Windows filesystem bounds")); my $resize_fat = eval { resize_fat::main->new($part->{device}, devices::make($part->{device})) }; $@ and die _("The FAT resizer is unable to handle your partition, @@ -143,8 +147,10 @@ When sure, press Ok.")) or return; $solutions{wipe_drive} = [ 10, fsedit::is_one_big_fat($hds) ? _("Remove Windows(TM)") : _("Erase entire disk"), sub { + $o->set_help('takeOverHdChoose'); my $hd = $o->ask_from_listf('', _("You have more than one hard drive, which one do you install linux on?"), \&partition_table_raw::description, $hds) or return; + $o->set_help('takeOverHdConfirm'); $o->ask_okcancel('', _("ALL existing partitions and their data will be lost on drive %s", partition_table_raw::description($hd))) or return; partition_table_raw::zero_MBR($hd); fsedit::auto_allocate($hds, $o->{partitions}); @@ -177,6 +183,8 @@ When you are done, don't forget to save using `w'", partition_table_raw::descrip sub partitionWizard { my ($o, $nodiskdrake) = @_; + $o->set_help('doPartitionDisks'); + my %solutions = partitionWizardSolutions($o, $o->{hds}, $o->{fstab}, $o->{partitioning}{readonly}); %solutions = (loopback => $solutions{loopback}) if $o->{lnx4win}; delete $solutions{diskdrake} if $nodiskdrake; |