From 43bd3d1944878518b87745b1b07186e893ac9832 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 13 Aug 2007 20:27:43 +0000
Subject: focus_first focuses first editable entry (ie skip "title" entries)

(i wonder why with !$::isInstall it doesn't matter...)
---
 perl-install/interactive.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index c5f90942e..417b39126 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -465,6 +465,12 @@ sub _normalize_entries {
 sub ask_from_normalize {
     my ($o, $common, $l) = @_;
 
+    if ($common->{focus_first}) {
+	if (my $e = find { $_->{val} } @$l) {
+	    $e->{focus} = sub { 1 };
+	}
+    }
+
     _normalize_entries($o, $l);
 
     $l->[0]{focus} = sub { 1 } if $common->{focus_first};
-- 
cgit v1.2.1