summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-18 14:27:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-18 14:27:22 +0000
commite6eea72bede111a1c5a2a9c861a342f621aba905 (patch)
treece6b60199580bed64e435f283dfda067b2e4ec08 /perl-install
parentaa794b610d6dca1907f89fba45177da9143ba71b (diff)
downloaddrakx-e6eea72bede111a1c5a2a9c861a342f621aba905.tar
drakx-e6eea72bede111a1c5a2a9c861a342f621aba905.tar.gz
drakx-e6eea72bede111a1c5a2a9c861a342f621aba905.tar.bz2
drakx-e6eea72bede111a1c5a2a9c861a342f621aba905.tar.xz
drakx-e6eea72bede111a1c5a2a9c861a342f621aba905.zip
focus first entry, ie "Encryption key"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index a146f95b7..ff42f67fd 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1311,7 +1311,7 @@ sub choose_encrypt_key {
$encrypt_key eq $encrypt_key2 or $in->ask_warn(N("Error"), [ N("The encryption keys do not match"), N("Please try again") ]), return 1,1;
return 0;
} } }, [
-{ label => N("Encryption key"), val => \$encrypt_key, hidden => 1 },
+{ label => N("Encryption key"), val => \$encrypt_key, hidden => 1, focus => sub { 1 } },
{ label => N("Encryption key (again)"), val => \$encrypt_key2, hidden => 1 },
if_(!$skip_encrypt_algo,
{ label => N("Encryption algorithm"), type => 'list', val => \$encrypt_algo, list => \@algorithms },