diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-08 01:48:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-08 01:48:28 +0000 |
| commit | 0f16f9693f47687136e5058916d0d04dcb611217 (patch) | |
| tree | 621a0c76850737d6353385ece3f3fda54219f7b0 /perl-install/interactive.pm | |
| parent | 83e615434cf1bc3a692ab95b9b8aac3af6c366c8 (diff) | |
| download | drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.gz drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.bz2 drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.xz drakx-0f16f9693f47687136e5058916d0d04dcb611217.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index ed2c79de4..a67cf7893 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -119,6 +119,16 @@ sub ask_from_entries($$$$;$%) { map { $$_ } @$val : undef; } + +sub ask_from_entries_refH($$$;$%) { + my ($o, $title, $message, $h, %callback) = @_; + + ask_from_entries_ref($o, $title, $message, + [ grep_index { even($::i) } @$h ], + [ grep_index { odd($::i) } @$h ], + %callback); +} + #- can get a hash of callback: focus_out changed and complete #- moreove if you pass a hash with a field list -> combo #- if you pass a hash with a field hidden -> emulate stty -echo |