summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-13 20:27:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-13 20:27:43 +0000
commit43bd3d1944878518b87745b1b07186e893ac9832 (patch)
tree85e58be85b26e2ddbaab19276ff65cc1035808d0 /perl-install/interactive.pm
parent72ef9e8437cf196ba4a02497aecfa91c4218ae1c (diff)
downloaddrakx-43bd3d1944878518b87745b1b07186e893ac9832.tar
drakx-43bd3d1944878518b87745b1b07186e893ac9832.tar.gz
drakx-43bd3d1944878518b87745b1b07186e893ac9832.tar.bz2
drakx-43bd3d1944878518b87745b1b07186e893ac9832.tar.xz
drakx-43bd3d1944878518b87745b1b07186e893ac9832.zip
focus_first focuses first editable entry (ie skip "title" entries)
(i wonder why with !$::isInstall it doesn't matter...)
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm6
1 files changed, 6 insertions, 0 deletions
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};