From 0714393bd156ccdaf87a3beda6d973a94a93ec7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 7 Mar 2003 23:42:27 +0000
Subject: mask encryption key (using stars)

---
 perl-install/install_steps_interactive.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 095329b74..e9e7a2578 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -156,7 +156,9 @@ sub selectInstallClass {
 	    foreach (grep { $_->{mntpoint} } @{$o->{fstab}}) {
 		my ($options, $unknown) = fs::mount_options_unpack($_);
 		$options->{encrypted} or next;
-		$_->{encrypt_key} = $o->ask_from_entry('', N("Encryption key for %s", $_->{mntpoint}));
+		$o->ask_from_({ focus_first => 1 },
+			      [ { label => N("Encryption key for %s", $_->{mntpoint}),
+				  hidden => 1, val => \$_->{encrypt_key} } ]);
 	    }
 	    $o->{isUpgrade} = 1;
 	}
-- 
cgit v1.2.1