diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-13 20:27:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-13 20:27:43 +0000 |
| commit | 43bd3d1944878518b87745b1b07186e893ac9832 (patch) | |
| tree | 85e58be85b26e2ddbaab19276ff65cc1035808d0 | |
| parent | 72ef9e8437cf196ba4a02497aecfa91c4218ae1c (diff) | |
| download | drakx-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...)
| -rw-r--r-- | perl-install/interactive.pm | 6 |
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}; |