From e38fd8a2b2ba2586a217742214f66513ada4075b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Feb 2003 13:44:18 +0000 Subject: - allow raid on raid (raid 10) - focus mount point in Mount_point - focus type in Type --- perl-install/diskdrake/interactive.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'perl-install/diskdrake') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 7f25095ae..5a6fe0c3d 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -403,7 +403,7 @@ sub part_possible_actions { N_("Move") => '!isBusy && !readonly && !isSpecial && $::expert && 0', # disable for the moment N_("Format") => '!isBusy && !readonly && ($::expert || $::isStandalone)', N_("Mount") => '!isBusy && (hasMntpoint || isSwap) && maybeFormatted && ($::expert || $::isStandalone)', - N_("Add to RAID") => '!isBusy && isRawRAID && !isSpecial', + N_("Add to RAID") => '!isBusy && isRawRAID && (!isSpecial || isRAID)', N_("Add to LVM") => '!isBusy && isRawLVM', N_("Unmount") => '!$part->{real_mntpoint} && isMounted', N_("Delete") => '!isBusy && !readonly', @@ -546,8 +546,10 @@ sub Type { @types = grep { (name2type($_) & 0xff) == 0x83 } @types if $hd->{readonly}; my $type_name = type2name($part->{type}); - $in->ask_from(N("Change partition type"), - N("Which filesystem do you want?"), + $in->ask_from_({ title => N("Change partition type"), + messages => N("Which filesystem do you want?"), + focus_first => 1, + }, [ { label => N("Type"), val => \$type_name, list => \@types, sort => 0, not_edit => !$::expert } ]) or return; my $type = $type_name && name2type($type_name); @@ -581,10 +583,11 @@ sub Mount_point { fsedit::has_mntpoint('/', $all_hds) || $part_->{mntpoint} eq '/boot' ? $part_->{mntpoint} : '/'; } else { '' } }; - $in->ask_from( - '', + $in->ask_from_({ messages => isLoopback($part) ? N("Where do you want to mount the loopback file %s?", $part->{loopback_file}) : N("Where do you want to mount device %s?", $part->{device}), + focus_first => 1, + }, [ { label => N("Mount point"), val => \$mntpoint, list => [ uniq(if_($mntpoint, $mntpoint), fsedit::suggestions_mntpoint($all_hds), '') ], not_edit => 0 } ], -- cgit v1.2.1