From 237f1302694d779a96b0fd9f3b7dbe82fc6e05d1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 6 Feb 2003 11:53:55 +0000 Subject: (setRootPassword): have the focus on the password field --- perl-install/install_steps_interactive.pm | 1 + 1 file changed, 1 insertion(+) (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 f1a7af736..b1e9876fe 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -943,6 +943,7 @@ sub setRootPassword { title => N("Set root password"), messages => N("Set root password"), cancel => ($o->{security} <= 2 && !$::corporate ? N("No password") : ''), + focus_first => 1, callbacks => { complete => sub { $sup->{password} eq $sup->{password2} or $o->ask_warn('', [ N("The passwords do not match"), N("Please try again") ]), return (1,0); -- cgit v1.2.1